d6e1f70e67
ISO Fortran disallows DATA statements from affecting the same bit of memory more than once; however, all (but one) other compilers allow this usage. They differ, however, in the case of multiple distinct initializations -- some compilers take the "last" value in source order, some don't. This patch accepts multiple identical DATA initializations, which is portable usage that appears in code, and emits an optional warning. It continues to detect and report multiple distinct DATA initializations, since they are not portable.
36 lines
1.6 KiB
Fortran
36 lines
1.6 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
program p
|
|
interface
|
|
subroutine s1
|
|
end subroutine
|
|
subroutine s2
|
|
end subroutine
|
|
end interface
|
|
!ERROR: DATA statement initializations affect 'p1' more than once, distinctly
|
|
procedure(s1), pointer :: p1
|
|
!PORTABILITY: DATA statement initializations affect 'p2' more than once, identically [-Wmultiple-identical-data]
|
|
procedure(s2), pointer :: p2
|
|
type t
|
|
procedure(s1), pointer, nopass :: p
|
|
end type
|
|
!ERROR: DATA statement initializations affect 'x1%p' more than once, distinctly
|
|
!PORTABILITY: DATA statement initializations affect 'x2%p' more than once, identically [-Wmultiple-identical-data]
|
|
type(t) x1, x2
|
|
!PORTABILITY: Procedure pointer 'p1' in a DATA statement is not standard [-Wdata-stmt-extensions]
|
|
data p1 /s1/
|
|
!PORTABILITY: Procedure pointer 'p1' in a DATA statement is not standard [-Wdata-stmt-extensions]
|
|
data p1 /s2/
|
|
!PORTABILITY: Procedure pointer 'p2' in a DATA statement is not standard [-Wdata-stmt-extensions]
|
|
data p2 /s1/
|
|
!PORTABILITY: Procedure pointer 'p2' in a DATA statement is not standard [-Wdata-stmt-extensions]
|
|
data p2 /s1/
|
|
!PORTABILITY: Procedure pointer 'p' in a DATA statement is not standard [-Wdata-stmt-extensions]
|
|
data x1%p /s1/
|
|
!PORTABILITY: Procedure pointer 'p' in a DATA statement is not standard [-Wdata-stmt-extensions]
|
|
data x1%p /s2/
|
|
!PORTABILITY: Procedure pointer 'p' in a DATA statement is not standard [-Wdata-stmt-extensions]
|
|
data x2%p /s1/
|
|
!PORTABILITY: Procedure pointer 'p' in a DATA statement is not standard [-Wdata-stmt-extensions]
|
|
data x2%p /s1/
|
|
end
|