flang/test/Parser/missing-colons.f90

   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