Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pointer_init_3.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! PR 45290: [F08] pointer initialization ! ! Contributed by Janus Weil <janus@gcc.gnu.org> module m integer, target :: t1 ! SAVE is implicit integer, pointer :: p1 => t1 end module m use m implicit none integer,target :: i0 = 2 integer,target,dimension(1:3) :: vec = 1 type :: t integer, pointer :: dpc => i0 integer :: i = 0 end type type (t), save, target :: u integer, pointer :: dp => i0 integer, pointer :: dp2 => vec(2) integer, pointer :: dp3 => u%i dp = 5 if (i0/=5) STOP 1 u%dpc = 6 if (i0/=6) STOP 2 dp2 = 3 if (vec(2)/=3) STOP 3 dp3 = 4 if (u%i/=4) STOP 4 end