4 ! ICE when loading module UnstructuredGridImages
5 ! because the type UnstructuredGridImageSiloForm
6 ! is not accessible there under its name.
8 ! Contributed by Reuben Budiardja <reubendb@gmail.com>
10 module UnstructuredGridImageSilo_Form
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
20 module UnstructuredGridImages
21 use UnstructuredGridImageSilo_Form
, &
22 UnstructuredGridImageForm
=> UnstructuredGridImageSiloForm
23 end module UnstructuredGridImages
26 use UnstructuredGridImages