| ! { dg-do run } | |
| ! | |
| ! Checks PDTs with ASSOCIATE. | |
| ! Was failing for same reason as PR60483. | |
| ! | |
| ! Contributed by Reinhold Bader <reinhold.bader@lrz.de> | |
| ! | |
| module matrix_mod_assumed_05 | |
| implicit none | |
| type :: matrix(rk, n, m) | |
| integer, kind :: rk | |
| integer, len :: n, m | |
| real(rk) :: entry(n, m) | |
| end type matrix | |
| integer, parameter :: rk=kind(1.d0) | |
| integer :: mm=20, nn=15 | |
| contains | |
| function factory() | |
| type(matrix(rk, :, :)), allocatable :: factory | |
| allocate(matrix(rk, nn, mm) :: factory) | |
| end function | |
| end module | |
| program test | |
| use matrix_mod_assumed_05 | |
| implicit none | |
| associate (o_matrix => factory()) | |
| if (o_matrix%n == nn .and. o_matrix%m == mm) then ! Symbol 'o_matrix' at (1) has no IMPLICIT type | |
| write(*,*) 'OK' | |
| else | |
| write(*,*) 'FAIL' | |
| STOP 1 | |
| end if | |
| end associate | |
| end program test | |