2 ! { dg-require-effective-target fortran_large_real }
5 integer,parameter :: k
= selected_real_kind (precision (0.0_8
) + 1)
7 real(k
) :: qda1(10), qda(10), qval
9 qda
= (/ 1,2,3,4,5,6,7,8,9,10 /)
10 QDA1
= MOD (1.1_k
*(QDA(1)-5.0_k
), P
=(QDA
-2.5_k
))
12 QVAL
= MOD (1.1_k
*(QDA(1)-5.0_k
), P
=(QDA(i
)-2.5_k
))
13 if (qval
/= qda1(i
)) call abort