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