git show d0cd00029c71977f587e362856582ddd42f48e77 t/swamp/pipe-stress-freaks.F

170325.2 · d0cd00029c71977f587e362856582ddd42f48e77

Bringing over 2.18 from the ack2 repo

reading declarations

Changes to t/swamp/pipe-stress-freaks.F. All files

new file mode 100644@@ -0,0 +1,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