83b462af17
Adds a hint to the warning message to disable a warning and updates the tests to expect this. Also fixes a bug in the storage of canonical spelling of error flags so that they are not used after free.
26 lines
880 B
Fortran
26 lines
880 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror
|
|
module m1
|
|
type a1
|
|
integer ::x1=1
|
|
end type a1
|
|
type,extends(a1)::a2
|
|
integer ::x2=3
|
|
end type a2
|
|
type,extends(a2)::a3
|
|
integer ::x3=3
|
|
end type a3
|
|
end module m1
|
|
|
|
program test
|
|
use m1
|
|
type(a3) v
|
|
!PORTABILITY: Whole parent component 'a2' in structure constructor should not be anonymous [-Wanonymous-parents]
|
|
v=a3(a2(x1=18,x2=6),x3=6)
|
|
!PORTABILITY: Whole parent component 'a1' in structure constructor should not be anonymous [-Wanonymous-parents]
|
|
v=a3(a1(x1=18),x2=6,x3=6)
|
|
!PORTABILITY: Whole parent component 'a2' in structure constructor should not be anonymous [-Wanonymous-parents]
|
|
!PORTABILITY: Whole parent component 'a1' in structure constructor should not be anonymous [-Wanonymous-parents]
|
|
v=a3(a2(a1(x1=18),x2=6),x3=6)
|
|
v=a3(a2=a2(a1=a1(x1=18),x2=6),x3=6) ! ok
|
|
end
|