-
Notifications
You must be signed in to change notification settings - Fork 14.6k
Closed
Labels
bugIndicates an unexpected problem or unintended behaviorIndicates an unexpected problem or unintended behaviorflang:frontend
Description
Version of flang-new : 20.0.0(3496245ed3d0b4d24444260da77dcdb93512fb5a/AArch64
When 'rename-list' is used in 'use' statement, a compilation error occurs.
The following are the test program, Flang-new, Gfortran and ifort compilation/execution result.
snfm_peta_xref_001_2.f90:
program main
print *,"pass"
end program main
module mod
logical,protected,external :: int4
pointer :: int4
contains
subroutine sss()
contains
end subroutine sss
end module mod
subroutine subb()
use mod,sss=>int4
end subroutine subb
$ flang-new snfm_peta_xref_001_2.f90
error: Semantic errors in snfm_peta_xref_001_2.f90
./snfm_peta_xref_001_2.f90:15:11: error: A PROTECTED entity must be in the specification part of a module
use mod,sss=>int4
^^^
./snfm_peta_xref_001_2.f90:15:11: error: A PROTECTED entity must be a variable or pointer
use mod,sss=>int4
^^^
$
$ gfortran snfm_peta_xref_001_2.f90; ./a.out
pass
$
$ ifort -diag-disable=10448 snfm_peta_xref_001_2.f90; ./a.out
pass
$
Metadata
Metadata
Assignees
Labels
bugIndicates an unexpected problem or unintended behaviorIndicates an unexpected problem or unintended behaviorflang:frontend
Type
Projects
Status
Done