! { dg-do compile } | |
! { dg-options "-fdec-structure" } | |
! | |
! Check fix for PR98517 | |
! | |
! Contributed by Eric Reischer <emr-gnu@hev.psu.edu> | |
! | |
SUBROUTINE TEST_BUG | |
IMPLICIT NONE | |
CHARACTER*(*) DEF_VAL | |
PARAMETER (DEF_VAL = 'ABCDEFGH') | |
STRUCTURE /SOME_STRUCT/ | |
CHARACTER*64 SOME_VAR /DEF_VAL/ | |
END STRUCTURE | |
END |