3 ! Checks PDTs with ASSOCIATE.
4 ! Was failing for same reason as PR60483.
6 ! Contributed by Reinhold Bader <reinhold.bader@lrz.de>
8 module matrix_mod_assumed_05
12 type :: matrix(rk, n, m)
15 real(rk) :: entry(n, m)
17 integer, parameter :: rk=kind(1.d0)
18 integer :: mm=20, nn=15
22 type(matrix(rk, :, :)), allocatable :: factory
23 allocate(matrix(rk, nn, mm) :: factory)
29 use matrix_mod_assumed_05
32 associate (o_matrix => factory())
33 if (o_matrix%n == nn .and. o_matrix%m == mm) then ! Symbol 'o_matrix' at (1) has no IMPLICIT type