diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr78686.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/pr78686.f90 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr78686.f90 b/gcc/testsuite/gfortran.dg/pr78686.f90 new file mode 100644 index 00000000000..b17fe4192c8 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr78686.f90 @@ -0,0 +1,11 @@ +! { dg-do compile } +! +! Test the fix for PR78686, which used to ICE. +! +! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> +! +program p + type t + character :: c(1) = [t()] ! { dg-error "is being used before it is defined" } + end type +end |