26 lines · plain
1!RUN: rm -rf %t && mkdir -p %t2!RUN: %flang_fc1 -fsyntax-only -fhermetic-module-files -DSTEP=1 -J%t %s3!RUN: %flang_fc1 -fsyntax-only -J%t %s4 5! Tests that a BIND(C) variable in a module A captured in a hermetic module6! file USE'd in a module B is not creating bogus complaints about BIND(C) name7! conflict when both module A and B are later accessed.8 9#if STEP == 110module modfile76a11 integer, bind(c) :: x12end13 14module modfile76b15 use modfile76a ! capture hermetically16end17 18#else19subroutine test20 use modfile76a21 use modfile76b22 implicit none23 print *, x24end subroutine25#endif26