llvm-project

1
! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s
2
module m
3
  type t
4
   contains
5
!CHECK: portability: type-bound procedure statement should have '::' if it has '=>'
6
    procedure p => sub
7
  end type
8
 contains
9
  subroutine sub(x)
10
    class(t), intent(in) :: x
11
  end subroutine
12
end module
13

14