35 lines · plain
1! RUN: %flang_fc1 -I %S/Inputs/module-dir -fdebug-unparse-with-modules %s | FileCheck %s2module m13 use iso_fortran_env4 use BasicTestModuleTwo5 implicit none6 type(t2) y7 real(real32) x8end9 10program test11 use m112 use BasicTestModuleTwo13 implicit none14 x = 123.15 y = t2()16end17 18!CHECK-NOT: module iso_fortran_env19!CHECK: module basictestmoduletwo20!CHECK: type::t221!CHECK: end type22!CHECK: end23!CHECK: module m124!CHECK: use :: iso_fortran_env25!CHECK: implicit none26!CHECK: real(kind=real32) x27!CHECK: end module28!CHECK: program TEST29!CHECK: use :: m130!CHECK: use :: basictestmoduletwo31!CHECK: implicit none32!CHECK: x = 123.33!CHECK: y = t2()34!CHECK: end program35