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