1! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s 2module 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 12end module 13 14