2021-02-03 02:51:14 +08:00
|
|
|
! RUN: %f18 -fsyntax-only $s 2>&1 | FileCheck %s
|
2021-01-22 06:54:53 +08:00
|
|
|
|
|
|
|
|
! Regression test: don't emit a bogus error about an invalid specification expression
|
|
|
|
|
! in the declaration of a binding
|
|
|
|
|
|
|
|
|
|
module m
|
|
|
|
|
type :: t
|
|
|
|
|
integer :: n
|
|
|
|
|
contains
|
|
|
|
|
!CHECK-NOT: Invalid specification expression
|
|
|
|
|
procedure :: binding => func
|
|
|
|
|
end type
|
|
|
|
|
contains
|
|
|
|
|
function func(x)
|
|
|
|
|
class(t), intent(in) :: x
|
|
|
|
|
character(len=x%n) :: func
|
|
|
|
|
func = ' '
|
|
|
|
|
end function
|
|
|
|
|
end module
|
