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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [change_symbol_attributes_1.f90] - Rev 154

Compare with Previous | Blame | View Log

! { dg-do compile }
! Fix for PR21730 - declarations used to produce the error:
!   target        :: x                ! these 2 lines interchanged
!                    1
! Error: Cannot change attributes of symbol at (1) after it has been used.
!
! Contributed by Harald Anlauf <anlauf@gmx.de>
!
subroutine gfcbug27 (x)
  real, intent(inout) :: x(:)

  real          :: tmp(size (x,1))  ! gfc produces an error unless
  target        :: x                ! these 2 lines interchanged
  real, pointer :: p(:)

  p => x(:)
end subroutine gfcbug27

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.