11 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12! Tests folding of DBLE()3module ft_data4 integer nx, ny, nz5 parameter (nx=64, ny=64, nz=64, maxdim=64)6 double precision ntotal_f7 parameter (ntotal_f = dble(nx)*ny*nz)8 logical, parameter :: test_dble_1 = ntotal_f == real(nx*ny*nz, kind(0.0D0))9 logical, parameter :: test_dble_2 = kind(dble(nx)) == kind(0.0D0)10end module ft_data11