39 lines · plain
1!RUN: rm -rf %t && mkdir -p %t2!RUN: %flang -c -fhermetic-module-files -DWHICH=1 -J%t %s && %flang -c -fhermetic-module-files -DWHICH=2 -J%t %s && %flang -c -fhermetic-module-files -J%t %s && cat %t/modfile77c.mod | FileCheck %s3 4#if WHICH == 15module modfile77a6 interface gen7 procedure proc8 end interface9 contains10 subroutine proc11 print *, 'ok'12 end13end14#elif WHICH == 215module modfile77b16 use modfile77a17end18#else19module modfile77c20 use modfile77a21 use modfile77b22end23#endif24 25!CHECK: module modfile77c26!CHECK: use modfile77a,only:proc27!CHECK: use modfile77a,only:gen28!CHECK: interface gen29!CHECK: end interface30!CHECK: end31!CHECK: module modfile77a32!CHECK: interface gen33!CHECK: procedure::proc34!CHECK: end interface35!CHECK: contains36!CHECK: subroutine proc()37!CHECK: end38!CHECK: end39