Variant of copy for 2d dpsp

What is the new feature

New copy variants for 2d,4d,5d fields from double-precision to single-precision.

Mandatory steps before review

• Gitlab CI passes (Hint: use make format for linting)
• New feature is covered by additional unit tests
• Mark the merge request as ready by removing Draft:

Mandatory steps before merge

• Test coverage does not decrease
• Reviewed by a maintainer
• Incorporate review suggestions
• Prior to merging, please remove any boilerplate from the MR description, retaining only the Please describe your feature in a couple of words and describe important implementation details of the feature section to maintain
• Remember to edit the commit message and select the proper changelog category (feature/bugfix/other)

You are not supposed to merge this request by yourself, the maintainers of fortan-support take care of this action!

test/fortran/test_fortran_tools.f90

@@ -1873,7 +1873,7 @@ CONTAINS
     assert_real_spdp_2d_array = .TRUE.
     DO i = 1, SIZE(array1, 1)
       DO j = 1, SIZE(array1, 2)
-        IF (array1(i, j) /= REAL(array2(i, j),KIND=sp)) THEN
+        IF (array1(i, j) /= REAL(array2(i, j), KIND=sp)) THEN
           assert_real_spdp_2d_array = .FALSE.
           EXIT
         END IF
@@ -1890,7 +1890,7 @@ CONTAINS
     DO i = 1, SIZE(array1, 1)
       DO j = 1, SIZE(array1, 2)
         DO k = 1, SIZE(array1, 3)
-          IF (array1(i, j, k) /= REAL(array2(i, j, k),KIND=sp)) THEN
+          IF (array1(i, j, k) /= REAL(array2(i, j, k), KIND=sp)) THEN
             assert_real_spdp_3d_array = .FALSE.
             EXIT
           END IF