gcc/testsuite/gfortran.dg/use_without_only_1.f90

! PR fortran/61234 Warn for use-stmt without explicit only-list.
! { dg-do compile }
! { dg-options "-Wuse-without-only" }
MODULE foo
  INTEGER :: bar
END MODULE

MODULE testmod
  USE foo ! { dg-warning "7:has no ONLY qualifier" }
  IMPLICIT NONE
CONTAINS
  SUBROUTINE S1
     USE foo ! { dg-warning "10:has no ONLY qualifier" }
  END SUBROUTINE S1
  SUBROUTINE S2
     USE foo, ONLY: bar 
  END SUBROUTINE
  SUBROUTINE S3
     USE ISO_C_BINDING ! { dg-warning "10:has no ONLY qualifier" }
  END SUBROUTINE S3
END MODULE