1! PR fortran/61234 Warn for use-stmt without explicit only-list.
2! { dg-do compile }
3! { dg-options "-Wuse-without-only" }
4MODULE foo
5  INTEGER :: bar
6END MODULE
7
8MODULE testmod
9  USE foo ! { dg-warning "6:has no ONLY qualifier" }
10  IMPLICIT NONE
11CONTAINS
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
21END MODULE
22! { dg-final { cleanup-modules "foo testmod" } }
23