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