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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! Test the fix for PR40402, in which it was not detected that X
3
! is not a constant and so the DATA statement did not have
4
! a constant value expression.
5
!
6
! Modified dg-error for PR41807
7
!
8
! Contributed by Philippe Marguinaud 
9
!
10
      TYPE POINT
11
        REAL :: X
12
      ENDTYPE
13
      TYPE(POINT) :: P
14
      DATA P / POINT(1.+X) / ! { dg-error "non-constant initialization" }
15
      print *, p
16
      END

powered by: WebSVN 2.1.0

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