| ! { dg-do run } |
| ! |
| ! PR fortran/99043 |
| ! |
| module assumed_rank_module |
| implicit none |
| private |
| |
| public :: rank_of_pointer_level1 |
| contains |
| subroutine rank_of_pointer_level1(ap,aa) |
| real, dimension(..), intent(in), pointer :: ap |
| real, dimension(..), intent(in), allocatable :: aa |
| if (rank(ap) /= 3) stop 1 |
| if (rank(aa) /= 3) stop 2 |
| call rank_of_pointer_level2(ap, aa) |
| end subroutine rank_of_pointer_level1 |
| |
| subroutine rank_of_pointer_level2(ap,aa) |
| real, dimension(..), intent(in), pointer :: ap |
| real, dimension(..), intent(in), allocatable :: aa |
| |
| if (rank(ap) /= 3) stop 3 |
| if (rank(aa) /= 3) stop 4 |
| end subroutine rank_of_pointer_level2 |
| end module assumed_rank_module |
| |
| program assumed_rank |
| use :: assumed_rank_module, only : rank_of_pointer_level1 |
| implicit none |
| real, dimension(:,:,:), pointer :: ap |
| real, dimension(:,:,:), allocatable :: aa |
| |
| ap => null() |
| call rank_of_pointer_level1(ap, aa) |
| end program assumed_rank |
