Fix float/double type mismatch with fortran literal

lanl · Nov 17, 2023 · 00bd3a7 · 00bd3a7
1 parent 4c437fa
commit 00bd3a7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/test_f_iface.f90 b/test/test_f_iface.f90
@@ -29,7 +29,7 @@ program test_sg_fortran_interface
 res = init_sg_eos_f(nmat, eos)
 mat = 1
 
-res = init_sg_IdealGas_f(mat, eos, 1.4, 1.0d7)
+res = init_sg_IdealGas_f(mat, eos, 1.4d0, 1.0d7)
 
 mat = mat + 1
 res = init_sg_Gruneisen_f(mat, eos, 394000.d0, 1.489d0, 0.d0, 0.d0, 2.02d0, 0.47d0,&