source:
vendors/FCM-2017.10.0/t/fcm-make/18-build-use-intrinsic/src/greet.f90
@
10672
Last change on this file since 10672 was 10672, checked in by nicolasmartin, 5 years ago | |
---|---|
File size: 273 bytes |
Rev | Line | |
---|---|---|
[10672] | 1 | program greet |
2 | implicit none | |
3 | include 'hello.interface' | |
4 | include 'hi.interface' | |
5 | abstract interface | |
6 | subroutine abstract_greet() | |
7 | end subroutine abstract_greet | |
8 | end interface | |
9 | procedure(abstract_greet), pointer :: say | |
10 | say => hello | |
11 | call say() | |
12 | say => hi | |
13 | call say() | |
14 | end program greet |
Note: See TracBrowser
for help on using the repository browser.