blob: f9d25a91d99cef0710cd3ec83f0c8674869d6244 [file] [log] [blame]
! { 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