1*e7be90bdSAndrzej Warzynski! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty 22de5ea3bSpeter klausler 32de5ea3bSpeter klausler! Regression test: don't emit a bogus error about an invalid specification expression 42de5ea3bSpeter klausler! in the declaration of a binding 52de5ea3bSpeter klausler 62de5ea3bSpeter klauslermodule m 72de5ea3bSpeter klausler type :: t 82de5ea3bSpeter klausler integer :: n 92de5ea3bSpeter klausler contains 102de5ea3bSpeter klausler !CHECK-NOT: Invalid specification expression 112de5ea3bSpeter klausler procedure :: binding => func 122de5ea3bSpeter klausler end type 132de5ea3bSpeter klausler contains 142de5ea3bSpeter klausler function func(x) 152de5ea3bSpeter klausler class(t), intent(in) :: x 162de5ea3bSpeter klausler character(len=x%n) :: func 172de5ea3bSpeter klausler func = ' ' 182de5ea3bSpeter klausler end function 192de5ea3bSpeter klauslerend module 20