13 lines
174 B
Text
13 lines
174 B
Text
module a
|
|
|
|
contains
|
|
|
|
! subroutine wrong
|
|
subroutine RIGHT
|
|
! subroutine wrong
|
|
|
|
real ChangeMe
|
|
|
|
end subroutine RIGHT
|
|
|
|
end module a
|