source:
vendors/t/fcm-make/13-build-target-prop/src/world.f90
@
10669
Last change on this file since 10669 was 10669, checked in by nicolasmartin, 5 years ago | |
---|---|
File size: 190 bytes |
Line | |
---|---|
1 | module world |
2 | character(*), parameter :: world1 = 'Earth' |
3 | contains |
4 | elemental function get_world() result(w) |
5 | character(len=len(world1)) :: w |
6 | w = world1 |
7 | end function get_world |
8 | end module world |
Note: See TracBrowser
for help on using the repository browser.