flang/test/Semantics/bug121718.f90

   1 ! RUN: %flang_fc1 2>&1 | FileCheck %s --allow-empty
   2 ! CHECK-NOT: error
   3 ! Regression test simplified from LLVM bug 121718.
   4 ! Ensure no crash and no spurious error message.
   5 module m1
   6   type foo
   7     integer x
   8   end type
   9  contains
  10   subroutine test
  11     print *, foo(123)
  12   end
  13 end
  14 module m2
  15   interface foo
  16     procedure f
  17   end interface
  18   type foo
  19     real x
  20   end type
  21  contains
  22   complex function f(x)
  23     complex, intent(in) :: x
  24     f = x
  25   end
  26 end
  27 program main
  28   use m1
  29   use m2
  30   call test
  31 end