flang/test/Semantics/data23.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 program 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/
  18 end