gcc/testsuite/gfortran.dg/io_constraints_4.f90

   1 ! { dg-do compile }
   2 ! PR33268 [patch,fortran] read ('(f3.3)'), a rejected due to the extra (...)
   3
   4 write(*,('(a)')) 'Hello'
   5 write (*,'(f8.3)'), 3.14  ! { dg-warning "Comma before i/o item list" }
   6 print ('(a)'), "valid"
   7 read ('(f3.3)'), a
   8 read (*, '(f3.3)'), a     ! { dg-warning "Comma before i/o item list" }
   9 write ('(a)'), "invalid"  ! { dg-error "Invalid form of WRITE statement" }
  10 end