Fix crashes in f_use_device_addr_01, dgemm_pad_f_01, and dgemm_dispatch_f (ONSAM-1918).

Author: nawalcopty

Publications/GPU-Opt-Guide/CMakeLists.txt

@@ -62,7 +62,7 @@ function(add_fortran_example_with_mkl name)
     add_executable(${name} ${_sources})
     add_sycl_to_target(TARGET ${name} SOURCES ${_sources})
     target_compile_options(${name} PRIVATE -warn all)
-    target_compile_options(${name} PRIVATE -fpp -free)
+    target_compile_options(${name} PRIVATE -fpp -free -i8)
     set_target_properties(${name} PROPERTIES LINKER_LANGUAGE Fortran)
     if (MKL_VERSION_2024)
       target_link_libraries(${name} PUBLIC MKL::MKL_SYCL)

Publications/GPU-Opt-Guide/OpenMP/22_mkl_pad/dgemm_pad_f_01.f

@@ -130,7 +130,7 @@ end function get_mul8
       allocate( c1(1:m1,1:n1) )
       allocate( a2(1:m2,1:k2) )
       allocate( b2(1:k2,1:n2) )
-      allocate( c2(1:m2,1:n1) )
+      allocate( c2(1:m2,1:n2) )
       call init_matrix (m1, k1, n1, a1, b1, c1)
       call init_matrix (m2, k2, n2, a2, b2, c2)
 

Publications/GPU-Opt-Guide/OpenMP/24_device_ptr_addr_clauses/f_use_device_addr_01.f90

@@ -15,11 +15,11 @@ program target_use_device_addr
   integer :: i,err
 
   ! Allocate host data
-  allocate(array_h(N1))
-
+  allocate(array_h(N1), array_d(1))
+  
   !$omp target data map (from:array_h(1:N1)) map(alloc:array_d(1:N1))
   !$omp target data use_device_addr(array_d)
-  !$omp target
+  !$omp target has_device_addr(array_d)
       do i=1, N1
         array_d(i) = aval
         array_h(i) = array_d(i)