@@ -13,7 +13,7 @@ dnl All rights reserved.
1313dnl Copyright (c) 2007 Los Alamos National Security, LLC. All rights
1414dnl reserved.
1515dnl Copyright (c) 2007 Sun Microsystems, Inc. All rights reserved.
16- dnl Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
16+ dnl Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved.
1717dnl $COPYRIGHT $
1818dnl
1919dnl Additional copyrights may follow
@@ -156,6 +156,7 @@ AC_DEFUN([OMPI_FORTRAN_CHECK_IGNORE_TKR_SUB], [
156156 complex :: buffer3(4,4)
157157 complex, pointer, dimension(:,:) :: ptr
158158 target :: buffer3
159+ integer :: buffer4
159160 ptr => buffer3
160161
161162! Set some known values (somewhat irrelevant for this test, but just be
@@ -174,6 +175,11 @@ AC_DEFUN([OMPI_FORTRAN_CHECK_IGNORE_TKR_SUB], [
174175 call force_assumed_shape(buffer3, count)
175176! Force a pointer call through an assumed shape (! )
176177 ptr => buffer3
178+ ! Also try with a simple scalar integer
179+ ! (Intel 2016 compiler suite only partially supports GCC pragmas;
180+ ! they work with all the above buffer types, but fail with a
181+ ! simple scalar integer)
182+ call foo(buffer4, count)
177183
178184 end program
179185
0 commit comments