1 C Test Fortran 77 H edit descriptor
2 C (ANSI X3.9-1978 Section 13.5.2)
4 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
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)" }