1151497Sru! { dg-do run }
2151497Sru! { dg-options "-std=legacy" }
3151497Sru!
4151497Sru! PR 20163, first half:  Trailing blanks on an option to
5151497Sru!                        open used to cause an error
6151497Sru      CHARACTER*8 ST
7151497Sru      ST = 'SCRATCH '
8151497Sru      OPEN(UNIT=10,STATUS=ST)
9151497Sru      END
10151497Sru