source:
vendors/tutorial/trunk-r1/src/program/hello.f90
@
10669
Last change on this file since 10669 was 10669, checked in by nicolasmartin, 6 years ago | |
---|---|
File size: 228 bytes |
Line | |
---|---|
1 | PROGRAM hello |
2 | |
3 | USE Hello_Constants, ONLY: hello_string |
4 | |
5 | IMPLICIT NONE |
6 | INCLUDE 'hello_sub.interface' |
7 | CHARACTER(*), PARAMETER :: this='hello' |
8 | |
9 | WRITE(*, '(A)') this // ': ' // TRIM(hello_string) |
10 | CALL Hello_Sub() |
11 | |
12 | END PROGRAM hello |
Note: See TracBrowser
for help on using the repository browser.