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

Subversion Repositories openrisc

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

Compare with Previous | Blame | View Log

! { dg-do run }
! { dg-options "-std=legacy" }
!
! PR38772 r143102 reveals missed error checking on floating point reads.
! Test case contributed by Jack Howarth.
      program badread
      implicit none
      double precision r
      character*20 temp
      logical ok
      temp='             end'
      r = 3.14159d0
      ok=.true.
      read(temp,'(f20.0)',err=8888) r
      call abort
8888  continue
      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.