1! { dg-do compile }
2! { dg-options "-fdec-structure" }
3!
4! Check fix for PR98517
5!
6! Contributed by Eric Reischer  <emr-gnu@hev.psu.edu>
7!
8      SUBROUTINE TEST_BUG
9      IMPLICIT NONE
10
11      CHARACTER*(*) DEF_VAL
12      PARAMETER (DEF_VAL = 'ABCDEFGH')
13
14      STRUCTURE /SOME_STRUCT/
15          CHARACTER*64    SOME_VAR /DEF_VAL/
16      END STRUCTURE
17
18      END
19