blob: f0c91f47ebc8d8132b399974fffbac909029c388 [file] [log] [blame]
! { dg-do compile }
! PR52393 "READ format" statement with parenthesed default-char-expr
PROGRAM ReadMeTwo
IMPLICIT NONE
CHARACTER(10) :: var
var = "TestStr"
PRINT ('(') // 'A)', var
PRINT ('(') // 'A)', var
READ ('(') // 'A)', var
PRINT *, var
READ *, var
END PROGRAM ReadMeTwo