mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 15:56:40 +00:00
90d753ab75
Interfaces don't inherit the IMPLICIT typing rules of their enclosing scope, and separate MODULE PROCEDUREs inherit the IMPLICIT typing rules of submodule in which they are defined, not the rules from their interface. Fixes https://github.com/llvm/llvm-project/issues/102558.
51 lines
1.1 KiB
Fortran
51 lines
1.1 KiB
Fortran
!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
!Test inheritance of implicit rules in submodules and separate module
|
|
!procedures.
|
|
|
|
module m
|
|
implicit integer(1)(a-z)
|
|
interface
|
|
module subroutine mp(da) ! integer(2)
|
|
implicit integer(2)(a-z)
|
|
end
|
|
end interface
|
|
save :: mv ! integer(1)
|
|
end
|
|
|
|
submodule(m) sm1
|
|
implicit integer(8)(a-z)
|
|
save :: sm1v ! integer(8)
|
|
interface
|
|
module subroutine sm1p(da) ! default real
|
|
end
|
|
end interface
|
|
end
|
|
|
|
submodule(m:sm1) sm2
|
|
implicit integer(2)(a-c,e-z)
|
|
save :: sm2v ! integer(2)
|
|
contains
|
|
module subroutine sm1p(da) ! default real
|
|
save :: sm1pv ! inherited integer(2)
|
|
!CHECK: PRINT *, 1_4, 8_4, 2_4, 4_4, 2_4
|
|
print *, kind(mv), kind(sm1v), kind(sm2v), kind(da), kind(sm1pv)
|
|
end
|
|
end
|
|
|
|
submodule(m:sm2) sm3
|
|
implicit integer(8)(a-z)
|
|
save :: sm3v ! integer(8)
|
|
contains
|
|
module procedure mp
|
|
save :: mpv ! inherited integer(8)
|
|
call sm1p(1.)
|
|
!CHECK: PRINT *, 1_4, 8_4, 2_4, 8_4, 2_4, 8_4
|
|
print *, kind(mv), kind(sm1v), kind(sm2v), kind(sm3v), kind(da), kind(mpv)
|
|
end
|
|
end
|
|
|
|
program main
|
|
use m
|
|
call mp(1_2)
|
|
end
|