1! { dg-do compile } 2! { dg-options "-std=legacy" } 3! 4program main 5 character*80 line 6 print (line,'(A)'), 'hello' ! { dg-error "Syntax error" } 7end program main 8