flang/test/Driver/unparse-with-modules.f90

   1 ! RUN: %flang_fc1 -I %S/Inputs/module-dir -fdebug-unparse-with-modules %s | FileCheck %s
   2 module m1
   3   use iso_fortran_env
   4   use BasicTestModuleTwo
   5   implicit none
   6   type(t2) y
   7   real(real32) x
   8 end
   9
  10 program test
  11   use m1
  12   use BasicTestModuleTwo
  13   implicit none
  14   x = 123.
  15   y = t2()
  16 end
  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