Apply fypp (#549)

* Apply fypp
* Fix filename in preprocessing workflow
* Arrays passed to torch_tensor_from_array need target property

Author: joewallwork

.github/workflows/preprocessing.yml

@@ -9,7 +9,7 @@ on:
   # Triggers the workflow on pushes to open pull requests with Fortran changes
   pull_request:
     paths:
-      - '.github/workflows/fypp_checks.yml'
+      - '.github/workflows/preprocessing.yml'
       - 'ftorch_tensor.f*'
       - 'ftorch_test_utils.f*'
 

src/ftorch_tensor.f90

@@ -344,9 +344,10 @@ end subroutine torch_tensor_ones
   !  This routine will take an (i, j, k) array and return an (k, j, i) tensor.
   !
   ! Note that `data` needs to be a pointer to a **contiguous** block of memory!
-  ! It is generally not a case when calling `c_loc` on a Fortran array as these may not be
-  ! contiguous as a result of array slicing. Please consider asserting that the data is contiguous
-  ! with `is_contiguous` implicit procedure before calling this routine.
+  ! This is not generally not the case when calling `c_loc` on a Fortran array as
+  ! array slicing can lead to non-contiguous memory.
+  ! Please consider asserting that the data is contiguous with the `is_contiguous`
+  ! implicit procedure before calling this routine.
   subroutine torch_tensor_from_blob(tensor, data, ndims, tensor_shape, layout, dtype, &
                                     device_type, device_index, &
                                     requires_grad)

test/unit/tensor/unittest_tensor_manipulation_cuda.pf

@@ -26,8 +26,9 @@ contains
     use, intrinsic :: iso_fortran_env, only: sp => real32, dp => real64
 
     type(torch_tensor) :: cpu_tensor, gpu_tensor, temp
-    real(dp), dimension(2,3,4) :: dp_data
-    real(sp), dimension(2,3,4) :: sp_data_expected, temp_array
+    real(dp), dimension(2,3,4), target :: dp_data
+    real(sp), dimension(2,3,4), target :: temp_array
+    real(sp), dimension(2,3,4) :: sp_data_expected
     integer, parameter :: device_type_source = torch_kCPU
     integer, parameter :: device_type_target = torch_kCUDA
     integer, parameter :: dtype_source = torch_kFloat64