34eb0adaa9
Now that semantics is working, the standard -fsyntax-only option of GNU and Clang should be used as the name of the option that causes f18 to just run the front-end. Support both options in f18, silently accepting the old option as a synonym for the new one (as preferred by the code owner), and replace all instances of the old -fparse-only option with -fsyntax-only throughout the source base. Differential Revision: https://reviews.llvm.org/D95887
20 lines
445 B
Fortran
20 lines
445 B
Fortran
! RUN: %f18 -fsyntax-only $s 2>&1 | FileCheck %s
|
|
|
|
! 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
|