Commit d13d9eae by Feng Wang Committed by Feng Wang

reshape_rank7.f90: Fix dejagnu commands.

2005-07-25  Feng Wang  <fengwang@nudt.edu.cn>

        * gfortran.dg/reshape_rank7.f90: Fix dejagnu commands.
        * gfortran.dg/underflow.f90: Ditto.

From-SVN: r102342
parent 85299dd5
2005-07-25 Feng Wang <fengwang@nudt.edu.cn>
* gfortran.dg/reshape_rank7.f90: Fix dejagnu commands.
* gfortran.dg/underflow.f90: Ditto.
2005-07-24 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> 2005-07-24 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* g++.dg/warn/miss-format-1.C, g++.dg/warn/miss-format-2.C, * g++.dg/warn/miss-format-1.C, g++.dg/warn/miss-format-2.C,
......
! { dg-do run} ! { dg-do run }
! PR 21075: Reshape with rank 7 used to segfault. ! PR 21075: Reshape with rank 7 used to segfault.
program main program main
integer :: a(256), b(2,2,2,2,2,2,2) integer :: a(256), b(2,2,2,2,2,2,2)
......
! { dg-do compile} ! { dg-do compile }
program a program a
real x real x
x = tiny(x) / huge(x) ! { dg-warning "Arithmetic underflow" "" } x = tiny(x) / huge(x) ! { dg-warning "Arithmetic underflow" "" }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment