diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/used_types_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/used_types_1.f90 | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/used_types_1.f90 b/gcc/testsuite/gfortran.dg/used_types_1.f90 new file mode 100644 index 00000000000..61356ab2c56 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/used_types_1.f90 @@ -0,0 +1,21 @@ +! { dg-do compile } +! This checks that the fix for PR25730, which was a regression +! caused by the fix for PR19362. +! +! Contributed by Andrea Bedini <andrea.bedini@gmail.com> +!============== +MODULE testcase + TYPE orbit_elem + CHARACTER(4) :: coo + END TYPE orbit_elem +END MODULE +MODULE tp_trace + USE testcase + TYPE(orbit_elem) :: tp_store +CONTAINS + SUBROUTINE str_clan() + USE testcase + TYPE(orbit_elem) :: mtpcar + mtpcar%coo='a' !ICE was here + END SUBROUTINE str_clan +END MODULE |