gcc/testsuite/gfortran.dg/fmt_read_3.f90

   1 ! { dg-do compile }
   2 ! PR52393 "READ format" statement with parenthesed default-char-expr
   3 PROGRAM 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
  12 END PROGRAM ReadMeTwo
  13