Index: ectrans-1.5.0/src/trans/gpu/algor/ext_acc.F90
===================================================================
--- ectrans-1.5.0.orig/src/trans/gpu/algor/ext_acc.F90
+++ ectrans-1.5.0/src/trans/gpu/algor/ext_acc.F90
@@ -17,7 +17,7 @@ module openacc_ext_type
   end type
 end module
 module openacc_ext
-  use iso_c_binding, only: c_ptr, c_size_t, c_loc
+  use iso_c_binding, only: c_ptr, c_size_t, c_loc, c_f_pointer
   use openacc, only: acc_create, acc_copyin, acc_handle_kind
   use openacc_ext_type, only: ext_acc_arr_desc
   implicit none
@@ -32,14 +32,15 @@ module openacc_ext
   end type
 
   interface ext_acc_pass
-    module procedure ext_acc_pass_2d_r4, ext_acc_pass_3d_r4, ext_acc_pass_4d_r4, ext_acc_pass_2d_r8, ext_acc_pass_3d_r8, ext_acc_pass_4d_r8
+    module procedure ext_acc_pass_2d_r4, ext_acc_pass_3d_r4, ext_acc_pass_4d_r4, ext_acc_pass_2d_r8, ext_acc_pass_3d_r8, &
+      & ext_acc_pass_4d_r8
   end interface
 contains
 
   function ext_acc_pass_2d_r4(arr) result(ret)
     implicit none
     type(ext_acc_arr_desc) :: ret
-    real(4), intent(in) :: arr(:,:)
+    real(4), intent(in), target :: arr(:,:)
 
     type(c_ptr) :: ptr1, ptr2
     integer(c_size_t) :: ptr1_v, ptr2_v
@@ -63,7 +64,7 @@ contains
   function ext_acc_pass_3d_r4(arr) result(ret)
     implicit none
     type(ext_acc_arr_desc) :: ret
-    real(4), intent(in) :: arr(:,:,:)
+    real(4), intent(in), target :: arr(:,:,:)
 
     type(c_ptr) :: ptr1, ptr2
     integer(c_size_t) :: ptr1_v, ptr2_v
@@ -87,7 +88,7 @@ contains
   function ext_acc_pass_4d_r4(arr) result(ret)
     implicit none
     type(ext_acc_arr_desc) :: ret
-    real(4), intent(in) :: arr(:,:,:,:)
+    real(4), intent(in), target :: arr(:,:,:,:)
 
     type(c_ptr) :: ptr1, ptr2
     integer(c_size_t) :: ptr1_v, ptr2_v
@@ -111,7 +112,7 @@ contains
   function ext_acc_pass_2d_r8(arr) result(ret)
     implicit none
     type(ext_acc_arr_desc) :: ret
-    real(8), intent(in) :: arr(:,:)
+    real(8), intent(in), target :: arr(:,:)
 
     type(c_ptr) :: ptr1, ptr2
     integer(c_size_t) :: ptr1_v, ptr2_v
@@ -135,7 +136,7 @@ contains
   function ext_acc_pass_3d_r8(arr) result(ret)
     implicit none
     type(ext_acc_arr_desc) :: ret
-    real(8), intent(in) :: arr(:,:,:)
+    real(8), intent(in), target :: arr(:,:,:)
 
     type(c_ptr) :: ptr1, ptr2
     integer(c_size_t) :: ptr1_v, ptr2_v
@@ -159,7 +160,7 @@ contains
   function ext_acc_pass_4d_r8(arr) result(ret)
     implicit none
     type(ext_acc_arr_desc) :: ret
-    real(8), intent(in) :: arr(:,:,:,:)
+    real(8), intent(in), target :: arr(:,:,:,:)
 
     type(c_ptr) :: ptr1, ptr2
     integer(c_size_t) :: ptr1_v, ptr2_v
@@ -275,6 +276,7 @@ contains
   end subroutine
   subroutine ext_acc_copyin(ptrs, stream)
     use openacc, only: acc_async_sync
+    use iso_c_binding, only: c_f_pointer
     implicit none
     type(ext_acc_arr_desc), intent(in) :: ptrs(:)
     integer(acc_handle_kind), optional :: stream
@@ -302,6 +304,7 @@ contains
   end subroutine
   subroutine ext_acc_copyout(ptrs, stream)
     use openacc, only: acc_async_sync, acc_copyout
+    use iso_c_binding
     implicit none
     type(ext_acc_arr_desc), intent(in) :: ptrs(:)
     integer(acc_handle_kind), optional :: stream