source:
vendors/tutorial/trunk-r1/src/program/hello.f90
@
10669
| Last change on this file since 10669 was 10669, checked in by nicolasmartin, 5 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.
