26 lines · plain
1!RUN: %flang_fc1 -DPART1 %s2!RUN: %flang_fc1 -DPART2 -fhermetic-module-files %s3!RUN: %flang_fc1 -DPART3 | FileCheck --allow-empty %s4!CHECK-NOT: error:5 6#if defined PART17module modfile80a8 interface generic9 module procedure specific10 end interface11 contains12 subroutine specific13 end14end15#elif defined PART216module modfile80b17 use modfile80a18end19#else20program test21 use modfile80a22 use modfile80b23 call generic24end25#endif26