Merge pull request #641 from ThePortlandGroup/nv_stage

Pull 2018-12-17T19-02 Recent NVIDIA Changes

Author: sscalpone

runtime/flang/fortDt.h

@@ -303,14 +303,9 @@ typedef __INT_T dtype;
 
 /*
  * data type representing the number of elements passed to
- * ENTF90(ALLOC04, alloc04), etc.  * It's either a 64-bit type, or __INT_T
- * which can be either a 64-bit or 32-bit type depending on DESC_I8
+ * ENTF90(ALLOC04, alloc04), etc.
  */
 
-#if defined(TARGET_X8664)
 #define __NELEM_T __INT8_T
-#else
-#define __NELEM_T __INT_T
-#endif
 
 #endif /*_PGHPF_TYPES_H_*/

runtime/flang/gather_cmplx16.F95

@@ -1,5 +1,5 @@
 ! 
-! Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
+! Copyright (c) 2012-2018, NVIDIA CORPORATION.  All rights reserved.
 !
 ! Licensed under the Apache License, Version 2.0 (the "License");
 ! you may not use this file except in compliance with the License.
@@ -21,11 +21,8 @@
 
 subroutine ftn_gather_cmplx16( ta, a, lda, alpha, buffer, bufrows, bufcols )
   implicit none
-#ifdef TARGET_X8664
+
   integer*8 lda
-#else
-  integer lda
-#endif
   complex*16 :: a( lda,* ), alpha
   integer :: bufrows, bufcols
   integer :: i, j, ndx, ndxsave

runtime/flang/gather_cmplx8.F95

@@ -1,5 +1,5 @@
 ! 
-! Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
+! Copyright (c) 2012-2018, NVIDIA CORPORATION.  All rights reserved.
 !
 ! Licensed under the Apache License, Version 2.0 (the "License");
 ! you may not use this file except in compliance with the License.
@@ -21,11 +21,8 @@
 
 subroutine ftn_gather_cmplx8( ta, a, lda, alpha, buffer, bufrows, bufcols )
   implicit none
-#ifdef TARGET_X8664
+
   integer*8 lda
-#else
-  integer lda
-#endif
   complex*8 :: a( lda,* ), alpha
   integer :: bufrows, bufcols
   integer :: i, j, ndx, ndxsave

runtime/flang/gather_real4.F95

@@ -1,5 +1,5 @@
 ! 
-! Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
+! Copyright (c) 2011-2018, NVIDIA CORPORATION.  All rights reserved.
 !
 ! Licensed under the Apache License, Version 2.0 (the "License");
 ! you may not use this file except in compliance with the License.
@@ -20,11 +20,8 @@
 
 subroutine ftn_gather_real4( a, lda, alpha, buffer, bufrows, bufcols )
   implicit none
-#ifdef TARGET_X8664
+
   integer*8 lda
-#else
-  integer lda
-#endif
   real*4 :: a( lda,* ), alpha
   integer :: bufrows, bufcols
   integer i, j, ndx, ndxsave

runtime/flang/gather_real8.F95

@@ -1,5 +1,5 @@
 ! 
-! Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
+! Copyright (c) 2011-2018, NVIDIA CORPORATION.  All rights reserved.
 !
 ! Licensed under the Apache License, Version 2.0 (the "License");
 ! you may not use this file except in compliance with the License.
@@ -20,11 +20,8 @@
 
 subroutine ftn_gather_real8( a, lda, alpha, buffer, bufrows, bufcols )
   implicit none
-#ifdef TARGET_X8664
+
   integer*8 lda
-#else
-  integer lda
-#endif
   real*8 :: a( lda,* ), alpha
   integer :: bufrows, bufcols
   integer i, j, ndx, ndxsave

runtime/flang/iso_c_bind.F95

@@ -153,11 +153,6 @@ module ISO_C_BINDING
         interface operator (.ne.)
             module procedure compare_ne_cfunptrs
         end interface
-#if defined TARGET_LINUX_X8664 || defined TARGET_LLVM_64
-        ! added this to make the data-initializd module common block be at 32 bytes long
-        ! maybe only needed for linux86-64
-        integer*8 :: __iso_bind_private_i = 11, __iso_bind_private_j = 23
-#endif
 
         contains
             logical function compare_eq_cptrs(a,b)

runtime/flang/miscsup_com.c

@@ -4833,11 +4833,7 @@ ENTF90(SPACINGD, spacingd)(__REAL8_T *d)
 
 #ifndef DESC_I8
 
-#if defined(TARGET_X8664)
 typedef __INT8_T SZ_T;
-#else
-typedef __INT4_T SZ_T;
-#endif
 
 #undef _MZERO
 #define _MZERO(n, t)                                                    \

runtime/flang/mvmul_cmplx16.F95

@@ -1,5 +1,5 @@
 ! 
-! Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
+! Copyright (c) 2012-2018, NVIDIA CORPORATION.  All rights reserved.
 !
 ! Licensed under the Apache License, Version 2.0 (the "License");
 ! you may not use this file except in compliance with the License.
@@ -19,22 +19,15 @@
 
 subroutine ftn_mvmul_cmplx16( ta, tb, m, k, alpha, a, lda, b, beta, c )
   implicit none
-#ifdef TARGET_X8664
+
   integer*8 :: m, k, lda
-#else
-  integer   :: m, k, lda
-#endif
   complex*16      :: alpha, beta
   complex*16, dimension( lda, * ) :: a
   complex*16, dimension( * )      :: b, c
   integer   :: ta, tb
   ! Local variables
 
-#ifdef TARGET_X8664
   integer*8   :: i, j, kk
-#else
-  integer     :: i, j, kk
-#endif
   complex*16      :: temp
 
 !  print *, "#### In mvmul ####"

runtime/flang/mvmul_cmplx8.F95

@@ -1,5 +1,5 @@
 ! 
-! Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
+! Copyright (c) 2012-2018, NVIDIA CORPORATION.  All rights reserved.
 !
 ! Licensed under the Apache License, Version 2.0 (the "License");
 ! you may not use this file except in compliance with the License.
@@ -19,22 +19,15 @@
 
 subroutine ftn_mvmul_cmplx8( ta, tb, m, k, alpha, a, lda, b, beta, c )
   implicit none
-#ifdef TARGET_X8664
+
   integer*8 :: m, k, lda
-#else
-  integer   :: m, k, lda
-#endif
   complex*8      :: alpha, beta
   complex*8, dimension( lda, * ) :: a
   complex*8, dimension( * )      :: b, c
   integer   :: ta, tb
   ! Local variables
 
-#ifdef TARGET_X8664
   integer*8   :: i, j, kk
-#else
-  integer     :: i, j, kk
-#endif
   complex*8      :: temp
 
 !  print *, "#### In mvmul ####"

runtime/flang/mvmul_real4.F95

@@ -1,5 +1,5 @@
 ! 
-! Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
+! Copyright (c) 2012-2018, NVIDIA CORPORATION.  All rights reserved.
 !
 ! Licensed under the Apache License, Version 2.0 (the "License");
 ! you may not use this file except in compliance with the License.
@@ -20,22 +20,15 @@
 
 subroutine ftn_mvmul_real4( ta, m, k, alpha, a, lda, b, beta, c )
   implicit none
-#ifdef TARGET_X8664
+
   integer*8 :: m, k, lda
-#else
-  integer   :: m, k, lda
-#endif
   real*4      :: alpha, beta
   real*4, dimension( lda, * ) :: a
   real*4, dimension( * )      :: b, c
   integer   :: ta
   ! Local variables
 
-#ifdef TARGET_X8664
   integer*8   :: i, j, kk
-#else
-  integer     :: i, j, kk
-#endif
   real*4      :: temp
 
   if( ta .eq. 0 )then ! normally oriented a matrix