!RUN: %flang_fc1 -DPART1 %s
!RUN: %flang_fc1 -DPART2 -fhermetic-module-files %s
!RUN: %flang_fc1 -DPART3 | FileCheck --allow-empty %s
!CHECK-NOT: error:

#if defined PART1
module modfile80a
  interface generic
    module procedure specific
  end interface
 contains
  subroutine specific
  end
end
#elif defined PART2
module modfile80b
  use modfile80a
end
#else
program test
  use modfile80a
  use modfile80b
  call generic
end
#endif