message: More data for fortran failure
diff: @@ -43,7 +43,7 @@ module sst_test_data
  integer (kind=8) :: i, j
  j = rank * Nx * 10 + step;
  - data_scalar_r64 = (step + 1) * 1.5;
  + data_scalar_r64 = (step + 1) * 1.5D0;
  do i = 1, Nx
  data_I8(i) = (j + 10 * (i-1));
  data_I16(i) = (j + 10 * (i-1));
  @@ -66,7 +66,8 @@ module sst_test_data
  integer (kind=8) :: i
  do i = 1, length
  - if (in_scalar_R64 /= (step - 1) * 1.5) then
  + if (in_scalar_R64 /= (step - 1) * 1.5D0) then
  + WRITE(*,*) 'Testing Scalar R64. Got ', in_scalar_R64, ' Expected ', (step - 1) * 1.5D0
  stop 'scalar_r64 value failed'
  end if
  if (in_I8(i) /= INT(((i - 1 + start)* 10 + step), kind=1)) then
  