flang/test/Semantics/resolve16.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! RUN: %S/test_errors.sh %s %t %flang_fc1
module m
  interface
    subroutine sub0
    end
    !ERROR: A PROCEDURE statement is only allowed in a generic interface block
    procedure :: sub1, sub2
  end interface
contains
  subroutine sub1
  end
  subroutine sub2
  end
end