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