source: XIOS/tools/FCM/test/repos/trunk/program/hello.F90 @ 1520

Last change on this file since 1520 was 81, checked in by ymipsl, 12 years ago

ajout FCM 1.5

File size: 352 bytes
Line 
1PROGRAM Hello
2
3USE Hello_Constants, ONLY: hello_string
4
5IMPLICIT NONE
6
7INTEGER :: integer_arg = 1234
8
9#if defined(CALL_HELLO_SUB)
10INCLUDE 'hello_sub.interface'
11#endif
12
13CHARACTER (LEN=*), PARAMETER :: this = 'Hello'
14
15WRITE (*, '(A)') this // ': ' // TRIM (hello_string)
16#if defined(CALL_HELLO_SUB)
17CALL Hello_Sub (integer_arg)
18#endif
19
20END PROGRAM Hello
Note: See TracBrowser for help on using the repository browser.