source:
vendors/t/fcm-make/25-build-cyclic-2/src/m2.f90
@
10669
Last change on this file since 10669 was 10669, checked in by nicolasmartin, 5 years ago | |
---|---|
File size: 167 bytes |
Line | |
---|---|
1 | module m2 |
2 | use m1, only: WHATEVER |
3 | character(*), parameter :: HELLO='Hello' |
4 | contains |
5 | subroutine s2() |
6 | write(*, '(a)') HELLO // ' from s2' |
7 | end subroutine s2 |
8 | end module m2 |
Note: See TracBrowser
for help on using the repository browser.