1! RUN: %python %S/test_errors.py %s %flang_fc1 2program p 3 interface 4 subroutine s 5 end subroutine 6 end interface 7 !ERROR: DATA statement initializations affect 'p' more than once 8 procedure(s), pointer :: p 9 type t 10 procedure(s), pointer, nopass :: p 11 end type 12 !ERROR: DATA statement initializations affect 'x%p' more than once 13 type(t) x 14 data p /s/ 15 data p /s/ 16 data x%p /s/ 17 data x%p /s/ 18end 19