Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr47054_2.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fcray-pointer" } ! PR fortran/47054 ! Code contributed by Deji Akingunola <deji_aking at yahoo dot ca> subroutine host_sub(F_su,F_nk) implicit none integer :: F_nk real,dimension(F_nk) :: F_su integer G_ni, G_nj real*8 G_xg_8, G_yg_8 pointer (paxg_8, G_xg_8(G_ni)) pointer (payg_8, G_yg_8(G_nj)) common / G_p / paxg_8,payg_8 common / G / G_ni, G_nj call internal_sub(F_su,F_nk) return contains subroutine internal_sub(F_su,F_nk) implicit none integer G_ni, G_nj real*8 G_xg_8, G_yg_8 pointer (paxg_8, G_xg_8(G_ni)) pointer (payg_8, G_yg_8(G_nj)) common / G_p / paxg_8,payg_8 common / G / G_ni, G_nj integer :: F_nk real,dimension(F_nk) :: F_su integer k,k2 k2 = 0 do k = 1, F_nk, 2 k2 = k2+1 F_su(k) = F_su(k) + 1.0 enddo return end subroutine internal_sub end subroutine host_sub