gcc/testsuite/gfortran.dg/use_rename_7.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/62044
   4 ! ICE when loading module UnstructuredGridImages
   5 ! because the type UnstructuredGridImageSiloForm
   6 ! is not accessible there under its name.
   7 !
   8 ! Contributed by Reuben Budiardja <reubendb@gmail.com>
   9
  10 module UnstructuredGridImageSilo_Form
  11   implicit none
  12   private
  13   type, public, abstract :: GridImageSiloTemplate
  14   end type GridImageSiloTemplate
  15   type, public, extends ( GridImageSiloTemplate ) :: &
  16     UnstructuredGridImageSiloForm
  17   end type UnstructuredGridImageSiloForm
  18 end module UnstructuredGridImageSilo_Form
  19
  20 module UnstructuredGridImages
  21   use UnstructuredGridImageSilo_Form, &
  22         UnstructuredGridImageForm => UnstructuredGridImageSiloForm
  23 end module UnstructuredGridImages
  24
  25 module FileSystem
  26   use UnstructuredGridImages
  27 end module FileSystem