gcc/testsuite/gfortran.dg/use_without_only_1.f90

   1 ! PR fortran/61234 Warn for use-stmt without explicit only-list.
   2 ! { dg-do compile }
   3 ! { dg-options "-Wuse-without-only" }
   4 MODULE foo
   5   INTEGER :: bar
   6 END MODULE
   7
   8 MODULE testmod
   9   USE foo ! { dg-warning "6:has no ONLY qualifier" }
  10   IMPLICIT NONE
  11 CONTAINS
  12   SUBROUTINE S1
  13      USE foo ! { dg-warning "9:has no ONLY qualifier" }
  14   END SUBROUTINE S1
  15   SUBROUTINE S2
  16      USE foo, ONLY: bar
  17   END SUBROUTINE
  18   SUBROUTINE S3
  19      USE ISO_C_BINDING ! { dg-warning "9:has no ONLY qualifier" }
  20   END SUBROUTINE S3
  21 END MODULE
  22 ! { dg-final { cleanup-modules "foo testmod" } }