OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [initialization_1.f90] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
!==================initialization_1.f90======================
2
 
3
! { dg-do compile }
4
! Tests fix for PR25018 in which an ICE resulted from using a
5
! variable in a parameter initialization expression. In the course
6
! of developing the fix, various other constraints and limitations
7
! were tested.
8
!
9
! Contributed by Paul Thomas  
10
!
11
module const
12
! The next line is the original error
13
  real(8), parameter :: g = - sqrt(2._8) * Gf ! { dg-error "not been declared or is a variable" }
14
contains
15
  subroutine foo(ch1, x, y)
16
    character(*)        :: ch1
17
 
18
! This is OK because it is a restricted expression.
19
    character(len(ch1)) :: ch2
20
 
21
    real(8) :: x (1:2, *)
22
    real(8) :: y (0:,:)
23
    integer :: i
24
    real :: z(2, 2)
25
 
26
! However, this gives a warning because it is an initialization expression.
27
    integer :: l1 = len (ch1)     ! { dg-warning "assumed character length variable" }
28
 
29
! These are warnings because they are gfortran extensions.
30
    integer :: m3 = size (x, 1)   ! { dg-warning "Evaluation of nonstandard initialization" }
31
    integer :: m4(2) = shape (z)  ! { dg-warning "Evaluation of nonstandard initialization" }
32
 
33
! This does not depend on non-constant properties.
34
    real(8) :: big = huge (x)
35
 
36
  end subroutine foo
37
end module const
38
 
39
! { dg-final { cleanup-modules "const" } }

powered by: WebSVN 2.1.0

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