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

Subversion Repositories openrisc

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

Compare with Previous | Blame | View Log

! { dg-do compile }
! This caused an ICE for gfortrans of July 2006 vintage.  It was a regression
! that "fixed" itself.  The cause and the fix are mysteries.  This test is intended
! to signal any further regression, should it occur.
!
! Contributed by Oskar Enoksson  <enok@lysator.liu.se>

SUBROUTINE BUG(A,B)
  IMPLICIT NONE
  
  INTEGER   :: A
  INTEGER   :: B(2)
  
  INTEGER, PARAMETER :: C(2) = (/ 1,2 /)
  
  WHERE (C(:).EQ.A)
    B = -1
  END WHERE
END SUBROUTINE BUG

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.