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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [old_style_init.f90] - Rev 694

Compare with Previous | Blame | View Log

!{ dg-do compile }
! this routine tests all the execution paths
! through the routine known as match_old_style_init()
! it does not make sense in any other context !!
      subroutine sub1(Z) !{ dg-error "DATA attribute conflicts" }
      integer Z/10/!{ dg-error "DATA"}
      end
      pure function pi(k)
      integer ,intent(in) :: k
      integer i / 10 / !{ dg-error "Initialization at " }
      pi=3.0
      end function pi
      subroutine sub2
      integer I /  /!{ dg-error "Syntax error in DATA" }
      end

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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