OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [default_initialization_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
!
2
! { dg-do compile }
3
! { dg-options "-std=f2003" }
4
! PR 20845; for F2008: PR fortran/43185
5
!
6
! In ISO/IEC 1539-1:1997(E), 4th constraint in section 11.3:
7
!
8
!   If an object of a type for which component-initialization is specified
9
!   (R429) appears in the specification-part of a module and does not have
10
!   the ALLOCATABLE or POINTER attribute, the object shall have the SAVE
11
!   attribute.
12
!
13
module bad
14
   implicit none
15
   type default_initialization
16
      integer :: x = 42
17
   end type default_initialization
18
   type (default_initialization) t ! { dg-error "default initialization" }
19
end module bad
20
 
21
! { dg-final { cleanup-modules "bad" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.