File: pipe-stress-freaks.F

package info (click to toggle)
ack 2.24-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,704 kB
  • sloc: perl: 8,590; ansic: 21; fortran: 11; makefile: 5; sh: 5
file content (11 lines) | stat: -rw-r--r-- 339 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
10
11
 
     PROGRAM FORMAT
     IMPLICIT NONE
     REAL                         :: X
     CHARACTER (LEN=11)           :: FORM1
     CHARACTER (LEN=*), PARAMETER :: FORM2 = "( F12.3,A )"
     FORM1 = "( F12.3,A )"
     X = 12.0
     PRINT FORM1, X, ' HELLO '
     WRITE (*, FORM2) 2*X, ' HI '
     WRITE (*, "(F12.3,A )") 3*X, ' HI HI '
     END