comparison gcc/testsuite/gfortran.dg/maxlocval_4.f90 @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 ! { dg-do run } 1 ! { dg-do run }
2 ! { dg-add-options ieee } 2 ! { dg-add-options ieee }
3 ! { dg-skip-if "NaN not supported" { spu-*-* } }
4 real :: a(3,3), b(3), nan, minf, pinf, h 3 real :: a(3,3), b(3), nan, minf, pinf, h
5 logical :: l, l2 4 logical :: l, l2
6 logical :: l3(3,3), l4(3,3), l5(3,3) 5 logical :: l3(3,3), l4(3,3), l5(3,3)
7 6
8 nan = 0.0 7 nan = 0.0