gcc/testsuite/gfortran.dg/open-options-blanks.f

   1 ! { dg-do run }
   2 ! PR 20163, first half:  Trailing blanks on an option to
   3 !                        open used to cause an error
   4       CHARACTER*8 ST
   5       ST = 'SCRATCH '
   6       OPEN(UNIT=10,STATUS=ST)
   7       END