gcc/testsuite/gfortran.dg/constructor_8.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 !
   4 ! PR fortran/53111
   5 !
   6 ! Contributed by Jacob Middag, reduced by Janus Weil.
   7 !
   8
   9 module a
  10   type :: my
  11     real :: x
  12   end type
  13 end module
  14
  15 module b
  16   use a
  17 end module
  18
  19 program test
  20   use a
  21   use b
  22 end program