! { 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 |