Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/cray_pointers_12.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 compile } ! { dg-options "-fcray-pointer" } ! ! Test the fix for PR36497 in which there was no error for the second ! declaration of 'x'. ! ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> ! module test integer(8) ipt integer z(2), x pointer (ipt, x) end module program bar use test ! { dg-error "conflicts with symbol" } integer x ! { dg-error "conflicts with symbol" } ipt = loc(z(1)) x = 1 ipt = loc(z(2)) x = 3 if (any (z .ne. [1,3])) stop 1 end