Skip to content
Snippets Groups Projects
Commit e76f1b58 authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Add fix for older Intel compiler bug.

parent 84f83dc4
No related branches found
No related tags found
No related merge requests found
Pipeline #18462 passed
......@@ -55,7 +55,11 @@ PROGRAM test_xmap_all2all_fail
IMPLICIT NONE
INTERFACE
FUNCTION xmap_new_fail3(src_idxlist, dst_idxlist, comm) RESULT(xmap)
#if __INTEL_COMPILER == 1500
USE yaxt, ONLY: xt_xmap, xt_idxlist
#else
IMPORT :: xt_xmap, xt_idxlist
#endif
TYPE(xt_xmap) :: xmap
TYPE(xt_idxlist), INTENT(in) :: src_idxlist, dst_idxlist
INTEGER, INTENT(in) :: comm
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment