source:
vendors/t/fcm-make/08-build-dup-dep/src/lib/greet.f90
@
10669
Last change on this file since 10669 was 10669, checked in by nicolasmartin, 5 years ago | |
---|---|
File size: 139 bytes |
Line | |
---|---|
1 | subroutine greet(hello, world) |
2 | character(*), intent(in) :: hello, world |
3 | write(*, '(A,1X,A)') trim(hello), trim(world) |
4 | end subroutine greet |
Note: See TracBrowser
for help on using the repository browser.