19 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12program p3 interface4 subroutine s5 end subroutine6 end interface7 !ERROR: DATA statement initializations affect 'p' more than once8 procedure(s), pointer :: p9 type t10 procedure(s), pointer, nopass :: p11 end type12 !ERROR: DATA statement initializations affect 'x%p' more than once13 type(t) x14 data p /s/15 data p /s/16 data x%p /s/17 data x%p /s/18end19