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