| ! { dg-do compile } | |
| ! Test the patch for PR30202 in which the INTENT(OUT) | |
| ! caused an ICE. | |
| ! | |
| ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> | |
| ! | |
| program class_scal_p | |
| implicit none | |
| type scal_p | |
| real, allocatable :: b(:) | |
| end type scal_p | |
| type(scal_p) :: pd | |
| call psb_geallv(pd%b) | |
| contains | |
| subroutine psb_geallv(x) | |
| real, allocatable, intent(out) :: x(:) | |
| end subroutine psb_geallv | |
| end program class_scal_p |