For compatibility with older programs, f77 also allows READs into Hollerith edit descriptors. @
demo% cat hol1.f WRITE( *, 1 ) 1 FORMAT( 6Holder ) READ( *, 1 ) WRITE( *, 1 ) END demo% f77 hol1.f hol1.f: MAIN demo% a.out older newer newer demo%
CHARACTER F*18 / '(A8)' / READ(*,F) ! ¨ Does not work. ...
Obviously, there are better ways to read into the actual format.