3265b93363
The index of an implied DO loop in a DATA statement or array constructor is defined by Fortran 2018 to have scope over its implied DO loop. This definition is unfortunate, because it requires the implied DO loop's bounds expressions to be in the scope of the index variable. Consequently, in code like integer, parameter :: j = 5 real, save :: a(5) = [(j, j=1, j)] the upper bound of the loop is a reference to the index variable, not the parameter in the enclosing scope. This patch limits the scope of the index variable to the "body" of the implied DO loop as one would naturally expect, with a warning. I would have preferred to make this a hard error, but most Fortran compilers treat this case as f18 now does. If the standard were to be fixed, the warning could be made optional. Differential Revision: https://reviews.llvm.org/D108595
118 lines
2.7 KiB
Fortran
118 lines
2.7 KiB
Fortran
! RUN: %python %S/test_symbols.py %s %flang_fc1
|
|
! Explicit and implicit entities in blocks
|
|
|
|
!DEF: /s1 (Subroutine) Subprogram
|
|
subroutine s1
|
|
!DEF: /s1/x ObjectEntity INTEGER(4)
|
|
integer x
|
|
block
|
|
!DEF: /s1/Block1/y ObjectEntity INTEGER(4)
|
|
integer y
|
|
!REF: /s1/x
|
|
x = 1
|
|
!REF: /s1/Block1/y
|
|
y = 2.0
|
|
end block
|
|
block
|
|
!DEF: /s1/Block2/y ObjectEntity REAL(4)
|
|
real y
|
|
!REF: /s1/Block2/y
|
|
y = 3.0
|
|
end block
|
|
end subroutine
|
|
|
|
!DEF: /s2 (Subroutine) Subprogram
|
|
subroutine s2
|
|
implicit integer(w-x)
|
|
block
|
|
!DEF: /s2/x (Implicit) ObjectEntity INTEGER(4)
|
|
x = 1
|
|
!DEF: /s2/y (Implicit) ObjectEntity REAL(4)
|
|
y = 2
|
|
end block
|
|
contains
|
|
!DEF: /s2/s (Subroutine) Subprogram
|
|
subroutine s
|
|
!DEF: /s2/s/x (Implicit) HostAssoc INTEGER(4)
|
|
x = 1
|
|
!DEF: /s2/s/w (Implicit) ObjectEntity INTEGER(4)
|
|
w = 1
|
|
end subroutine
|
|
end subroutine
|
|
|
|
!DEF: /s3 (Subroutine) Subprogram
|
|
subroutine s3
|
|
!DEF: /s3/j ObjectEntity INTEGER(8)
|
|
integer(kind=8) j
|
|
block
|
|
!DEF: /s3/Block1/t DerivedType
|
|
type :: t
|
|
!DEF: /s3/Block1/t/x ObjectEntity REAL(4)
|
|
!DEF: /s3/Block1/t/ImpliedDos1/i (Implicit) ObjectEntity INTEGER(4)
|
|
real :: x(10) = [(i, i=1,10)]
|
|
!DEF: /s3/Block1/t/y ObjectEntity REAL(4)
|
|
!DEF: /s3/Block1/t/ImpliedDos2/j ObjectEntity INTEGER(8)
|
|
real :: y(10) = [(j, j=1,10)]
|
|
end type
|
|
end block
|
|
end subroutine
|
|
|
|
!DEF: /s4 (Subroutine) Subprogram
|
|
subroutine s4
|
|
implicit integer(x)
|
|
interface
|
|
!DEF: /s4/s EXTERNAL (Subroutine) Subprogram
|
|
!DEF: /s4/s/x (Implicit) ObjectEntity REAL(4)
|
|
!DEF: /s4/s/y (Implicit) ObjectEntity INTEGER(4)
|
|
subroutine s (x, y)
|
|
implicit integer(y)
|
|
end subroutine
|
|
end interface
|
|
end subroutine
|
|
|
|
!DEF: /s5 (Subroutine) Subprogram
|
|
subroutine s5
|
|
block
|
|
!DEF: /s5/Block1/x (Implicit) ObjectEntity REAL(4)
|
|
dimension :: x(2)
|
|
block
|
|
!DEF: /s5/Block1/Block1/x (Implicit) ObjectEntity REAL(4)
|
|
dimension :: x(3)
|
|
end block
|
|
end block
|
|
!DEF: /s5/x (Implicit) ObjectEntity REAL(4)
|
|
x = 1.0
|
|
end subroutine
|
|
|
|
!DEF: /s6 (Subroutine) Subprogram
|
|
subroutine s6
|
|
!DEF: /s6/i ObjectEntity INTEGER(4)
|
|
!DEF: /s6/j ObjectEntity INTEGER(4)
|
|
!DEF: /s6/k ObjectEntity INTEGER(4)
|
|
integer i, j, k
|
|
block
|
|
!DEF: /s6/Block1/i ASYNCHRONOUS, VOLATILE HostAssoc INTEGER(4)
|
|
volatile :: i
|
|
!DEF: /s6/Block1/j ASYNCHRONOUS HostAssoc INTEGER(4)
|
|
asynchronous :: j
|
|
!REF: /s6/Block1/i
|
|
asynchronous :: i
|
|
!DEF: /s6/Block1/k TARGET (Implicit) ObjectEntity INTEGER(4)
|
|
target :: k
|
|
end block
|
|
end subroutine
|
|
|
|
!DEF: /m7 Module
|
|
module m7
|
|
!DEF: /m7/i PUBLIC ObjectEntity INTEGER(4)
|
|
!DEF: /m7/j PUBLIC ObjectEntity INTEGER(4)
|
|
integer i, j
|
|
end module
|
|
!DEF: /s7 (Subroutine) Subprogram
|
|
subroutine s7
|
|
!REF: /m7
|
|
use :: m7
|
|
!DEF: /s7/j VOLATILE Use INTEGER(4)
|
|
volatile :: j
|
|
end subroutine
|