source:
vendors/t/fcm-make/36-build-fail-cont-basic/src/greet_mod.f90
@
10669
Last change on this file since 10669 was 10669, checked in by nicolasmartin, 5 years ago | |
---|---|
File size: 227 bytes |
Line | |
---|---|
1 | module greet_mod |
2 | implicit none |
3 | character(*), parameter :: greet_word = 'Hello' |
4 | contains |
5 | subroutine greet(world) |
6 | character(*), intent(in) :: world |
7 | write(*, '(a,1x,a)') greet_word, world |
8 | end subroutine greet |
9 | end module greet_mod |
Note: See TracBrowser
for help on using the repository browser.