no need for pointer attribute

ecmwf · Oct 11, 2024 · aa2a3dd · aa2a3dd
1 parent 81f1dab
commit aa2a3dd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/tests/field/fctest_field_gpu.F90 b/src/tests/field/fctest_field_gpu.F90
@@ -25,7 +25,7 @@ module fcta_Field_gpu_fxt
 
   subroutine kernel_host_ptr(view)
     implicit none
-    real(4), pointer, intent(inout) :: view(:,:)
+    real(4), intent(inout) :: view(:,:)
 
     !$acc kernels present(view)
     view(2,1) = 4.