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
10module 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
18end module UnstructuredGridImageSilo_Form
19
20module UnstructuredGridImages
21  use UnstructuredGridImageSilo_Form, &
22        UnstructuredGridImageForm => UnstructuredGridImageSiloForm
23end module UnstructuredGridImages
24
25module FileSystem
26  use UnstructuredGridImages
27end module FileSystem
28