URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
!
|
!
|
! { dg-do compile }
|
! { dg-do compile }
|
! PR 20845
|
! PR 20845
|
!
|
!
|
! In ISO/IEC 1539-1:1997(E), 4th constraint in section 11.3:
|
! In ISO/IEC 1539-1:1997(E), 4th constraint in section 11.3:
|
!
|
!
|
! If an object of a type for which component-initialization is specified
|
! If an object of a type for which component-initialization is specified
|
! (R429) appears in the specification-part of a module and does not have
|
! (R429) appears in the specification-part of a module and does not have
|
! the ALLOCATABLE or POINTER attribute, the object shall have the SAVE
|
! the ALLOCATABLE or POINTER attribute, the object shall have the SAVE
|
! attribute.
|
! attribute.
|
!
|
!
|
module bad
|
module bad
|
implicit none
|
implicit none
|
type default_initialization
|
type default_initialization
|
integer :: x = 42
|
integer :: x = 42
|
end type default_initialization
|
end type default_initialization
|
type (default_initialization) t ! { dg-error "default initialization" }
|
type (default_initialization) t ! { dg-error "default initialization" }
|
end module bad
|
end module bad
|
|
|
! { dg-final { cleanup-modules "bad" } }
|
! { dg-final { cleanup-modules "bad" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.