14 lines · plain
1! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s2module m3 type t4 contains5!CHECK: portability: type-bound procedure statement should have '::' if it has '=>'6 procedure p => sub7 end type8 contains9 subroutine sub(x)10 class(t), intent(in) :: x11 end subroutine12end module13 14