parent
37ce7f01cf
commit
3d88ce70f4
4 changed files with 22 additions and 9 deletions
@ -1,6 +1,6 @@ |
|||||||
module mod1 |
module mod1 |
||||||
implicit none |
implicit none |
||||||
|
|
||||||
integer, parameter :: modval1 = 1 |
integer, parameter :: modval1 = @ONE@ |
||||||
|
|
||||||
end module mod1 |
end module mod1 |
||||||
|
@ -0,0 +1,9 @@ |
|||||||
|
program prog |
||||||
|
use mod2 |
||||||
|
implicit none |
||||||
|
|
||||||
|
if (modval1 + modval2 /= 3) then |
||||||
|
stop 1 |
||||||
|
end if |
||||||
|
|
||||||
|
end program prog |
Loading…
Reference in new issue