gcc/testsuite/gfortran.dg/used_types_1.f90

   1 ! { dg-do compile }
   2 ! This checks that the fix for PR25730, which was a regression
   3 ! caused by the fix for PR19362.
   4 !
   5 ! Contributed by Andrea Bedini <andrea.bedini@gmail.com>
   6 !==============
   7 MODULE testcase
   8   TYPE orbit_elem
   9      CHARACTER(4) :: coo
  10   END TYPE orbit_elem
  11 END MODULE
  12 MODULE tp_trace
  13   USE testcase
  14   TYPE(orbit_elem) :: tp_store
  15 CONTAINS
  16   SUBROUTINE str_clan()
  17     USE testcase
  18     TYPE(orbit_elem) :: mtpcar
  19     mtpcar%coo='a'             !ICE was here
  20   END SUBROUTINE str_clan
  21 END MODULE
  22
  23 ! { dg-final { cleanup-modules "testcase tp_trace" } }