1# 1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.f" 2! { dg-do compile } 3! { dg-options "-std=legacy" } 4 5 subroutine foo 6 character*10 cpnam 7 character*4 csig 8 write (34,808) csig,ilax,cpnam 9 808 format (/9X,4HTHE ,A4, 29HTIVE MINOS ERROR OF PARAMETER,I3, 2H 10 +, ,A10) 11 end 12