c: Fix up pointer types to may_alias structures [PR114493]

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr47054_1.f90

! { dg-do compile }
! { dg-options "-fcray-pointer" }
! PR fortran/47054
subroutine host_sub
   implicit none
   real xg
   pointer (paxg, xg)
   call internal_sub
   contains 
      subroutine internal_sub
         implicit none
         real xg
         pointer (paxg, xg)
      end subroutine internal_sub
end subroutine host_sub