flang/test/Semantics/call17.f90

   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
   6 module 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
  19 end module