2020-06-08 12:13:18 +08:00
|
|
|
program generated
|
|
|
|
|
use mod2, only : modval1, modval2
|
|
|
|
|
use mod3, only : modval3
|
2019-02-27 01:16:50 +08:00
|
|
|
implicit none
|
2017-05-14 03:18:16 +08:00
|
|
|
|
2020-06-08 12:13:18 +08:00
|
|
|
if (modval1 + modval2 + modval3 /= 6) error stop
|
2017-05-14 03:18:16 +08:00
|
|
|
|
2020-06-08 12:13:18 +08:00
|
|
|
end program generated
|
