parens_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 9 行

! 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