1! RUN: %flang_fc1 -I %S/Inputs/module-dir -fdebug-unparse-with-modules %s | FileCheck %s 2module m1 3 use iso_fortran_env 4 use BasicTestModuleTwo 5 implicit none 6 type(t2) y 7 real(real32) x 8end 9 10program test 11 use m1 12 use BasicTestModuleTwo 13 implicit none 14 x = 123. 15 y = t2() 16end 17 18!CHECK-NOT: module iso_fortran_env 19!CHECK: module basictestmoduletwo 20!CHECK: type::t2 21!CHECK: end type 22!CHECK: end 23!CHECK: module m1 24!CHECK: use :: iso_fortran_env 25!CHECK: implicit none 26!CHECK: real(kind=real32) x 27!CHECK: end module 28!CHECK: program test 29!CHECK: use :: m1 30!CHECK: use :: basictestmoduletwo 31!CHECK: implicit none 32!CHECK: x = 123. 33!CHECK: y = t2() 34!CHECK: end program 35