27 lines · plain
1!RUN: rm -rf %t && mkdir -p %t2!RUN: %flang_fc1 -DWHICH=1 -fsyntax-only -J%t %s3!RUN: %flang_fc1 -DWHICH=2 -fsyntax-only -fhermetic-module-files -I%t -J%t %s4!RUN: %flang_fc1 -fsyntax-only -I%t %s 2>&1 | FileCheck --allow-empty %s5!CHECK-NOT: error:6 7#if WHICH == 18module bug1092a9 type t10 end type11 contains12 subroutine subr(x)13 type(t) x14 end15end16#elif WHICH == 217module bug1092b18 use bug1092a, only: subr19end20#else21use bug1092a, only: t22use bug1092b, only: subr23type(t) x24call subr(x)25end26#endif27