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