summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/open-options-blanks.f
blob: 4db31b9e31a2a07e7f186c16f6d2572bc270111b (plain)
1
2
3
4
5
6
7
8
9
! { dg-do run }
! { dg-options "-std=legacy" }
!
! PR 20163, first half:  Trailing blanks on an option to
!                        open used to cause an error
      CHARACTER*8 ST
      ST = 'SCRATCH '
      OPEN(UNIT=10,STATUS=ST)
      END