37 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic2module m3 real mobj4 contains5 subroutine msubr6 end subroutine7end module8program main9 use m10 pointer main11 !ERROR: Cannot change POINTER attribute on use-associated 'mobj'12 pointer mobj13 !ERROR: Cannot change POINTER attribute on use-associated 'msubr'14 pointer msubr15 !ERROR: 'inner' cannot have the POINTER attribute16 pointer inner17 real obj18 !ERROR: 'ip' may not have both the POINTER and PARAMETER attributes19 integer, parameter :: ip = 12320 pointer ip21 type dt; end type22 !ERROR: 'dt' cannot have the POINTER attribute23 pointer dt24 interface generic25 subroutine extsub26 end subroutine27 end interface28 !ERROR: 'generic' cannot have the POINTER attribute29 pointer generic30 namelist /nml/ obj31 !ERROR: 'nml' cannot have the POINTER attribute32 pointer nml33 contains34 subroutine inner35 end subroutine36end37