1C Test Fortran 77 H edit descriptor 2C (ANSI X3.9-1978 Section 13.5.2) 3C 4C Origin: David Billinghurst <David.Billinghurst@riotinto.com> 5C 6C { dg-do run } 7C { dg-output "^" } 8 10 format(1H1) 9 20 format(6H 6) 10 write(*,10) ! { dg-output "1(\n|\r\n|\r)" } 11 write(*,20) ! { dg-output " 6(\n|\r\n|\r)" } 12 write(*,'(16H''apostrophe'' fun)') ! { dg-output "'apostrophe' fun(\n|\r\n|\r)" } 13C { dg-output "\$" } 14 end 15