15 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12pointer(p,x)3!ERROR: Cray pointee 'y' may not be a member of an EQUIVALENCE group4pointer(p,y)5!ERROR: Cray pointee 'x' may not be a member of COMMON block //6common x7equivalence(y,z)8!ERROR: Cray pointee 'v' may not be initialized9real :: v = 42.010pointer(p,v)11!ERROR: Cray pointee 'u' may not have the SAVE attribute12save u13pointer(p, u)14end15