20 lines · plain
1! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty2 3! Regression test: don't emit a bogus error about an invalid specification expression4! in the declaration of a binding5 6module m7 type :: t8 integer :: n9 contains10 !CHECK-NOT: Invalid specification expression11 procedure :: binding => func12 end type13 contains14 function func(x)15 class(t), intent(in) :: x16 character(len=x%n) :: func17 func = ' '18 end function19end module20