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