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