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