1! { dg-do compile } 2! PR52393 "READ format" statement with parenthesed default-char-expr 3PROGRAM ReadMeTwo 4 IMPLICIT NONE 5 CHARACTER(10) :: var 6 var = "TestStr" 7 PRINT ('(') // 'A)', var 8 PRINT ('(') // 'A)', var 9 READ ('(') // 'A)', var 10 PRINT *, var 11 READ *, var 12END PROGRAM ReadMeTwo 13 14