summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/parens_1.f90
blob: 91ced3b6da0c110cb5ecac664d11ef057c628ba4 (plain)
1
2
3
4
5
6
7
8
! PR 20894
! { dg-do compile }
! Originally contributed by Joost VandeVondele
INTEGER, POINTER :: I,J
INTEGER :: K
ALLOCATE(I)
J=>(I)   ! { dg-error "Pointer assignment target is neither TARGET nor POINTER" }
END