| ! { 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 | |