1! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty 2 3! Regression test: don't emit a bogus error about an invalid specification expression 4! in the declaration of a binding 5 6module m 7 type :: t 8 integer :: n 9 contains 10 !CHECK-NOT: Invalid specification expression 11 procedure :: binding => func 12 end type 13 contains 14 function func(x) 15 class(t), intent(in) :: x 16 character(len=x%n) :: func 17 func = ' ' 18 end function 19end module 20