flang/test/Semantics/modfile72.f90

! This test verifies that both invocations produce a consistent order in the
! generated `.mod` file. Previous versions of Flang exhibited non-deterministic
! behavior due to pointers outside the cooked source being used to order symbols
! in the `.mod` file.

! RUN: rm -rf %t && mkdir -p %t
! RUN: %flang_fc1 -fsyntax-only -J%t %S/Inputs/modfile72.f90
! RUN: %flang_fc1 -fsyntax-only -J%t %s
! RUN: cat %t/bar.mod | FileCheck %s

! RUN: rm -rf %t && mkdir -p %t
! RUN: %flang_fc1 -fsyntax-only -J%t %S/Inputs/modfile72.f90 %s
! RUN: cat %t/bar.mod | FileCheck %s

module bar
  use foo, only : do_foo
  use foo, only : do_bar
contains
  subroutine do_baz()
    call do_foo()
    call do_bar()
  end
end

!      CHECK: use foo,only:do_foo
! CHECK-NEXT: use foo,only:do_bar
! CHECK-NEXT: use foo,only:foo$foo$do_bar_impl=>do_bar_impl
! CHECK-NEXT: use foo,only:foo$foo$do_foo_impl=>do_foo_impl