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 | |
| Rev | Line | |
|---|---|---|
| [10669] | 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.
