https://gcc.gnu.org/bugzilla/show_bug.cgi?id=115653
Bug ID: 115653
Summary: USE without ONLY warning when compiling submodules
Product: gcc
Version: 14.1.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gmt3141 at gmail dot com
Target Milestone: ---
When I compile a submodule with `-Wuse-without-only` option, a false positive
warning about USE without ONLY will be shown:
$ gfortran -Wuse-without-only greeting.f90
greeting.f90:13:19:
13 | submodule (greet_m) greet_implementation_sm
| 1
Warning: USE statement at (1) has no ONLY qualifier [-Wuse-without-only]
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! greeting.f90
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
module greet_m
implicit none
interface
module subroutine hello (name)
character (len=*), intent (in), optional :: name
end subroutine hello
end interface
end module greet_m
submodule (greet_m) greet_implementation_sm
contains
module subroutine hello (name)
character (len=*), intent (in), optional :: name
if (present (name)) then
print '("Hello ", a, "!")', name
else
print '("Hello World!")'
end if
end subroutine hello
end submodule greet_implementation_sm
program greeting
use greet_m, only: hello
implicit none
call hello
call hello ('John')
end program greeting
