mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-16 23:06:34 +00:00
b788d6283d
Cray pointees may not appear in COMMON blocks or EQUIVALENCE groups. Fixes llvm-test-suite/Fortran/gfortran/regression/cray_pointers_4.f90.
9 lines
235 B
Fortran
9 lines
235 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
pointer(p,x)
|
|
!ERROR: Cray pointee 'y' may not be a member of an EQUIVALENCE group
|
|
pointer(p,y)
|
|
!ERROR: Cray pointee 'x' may not be a member of a COMMON block
|
|
common x
|
|
equivalence(y,z)
|
|
end
|