blob: d392756e14154f54a4b5a65627fa0c6a3c7d9f3a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! RUN: %f18 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty
! 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
|
GitWeb
