32 lines · plain
1! RUN: %flang_fc1 2>&1 | FileCheck %s --allow-empty2! CHECK-NOT: error3! Regression test simplified from LLVM bug 121718.4! Ensure no crash and no spurious error message.5module m16 type foo7 integer x8 end type9 contains10 subroutine test11 print *, foo(123)12 end13end14module m215 interface foo16 procedure f17 end interface18 type foo19 real x20 end type21 contains22 complex function f(x)23 complex, intent(in) :: x24 f = x25 end26end27program main28 use m129 use m230 call test31end32