Merge pull request #593 from ThePortlandGroup/nv_stage

Pull 2018-09-17T07-16 Recent NVIDIA Changes

Author: sscalpone

runtime/flang/CMakeLists.txt

@@ -35,7 +35,6 @@ SET(FTN_INTRINSICS_DESC_INDEP
   besy03f.c
   besy13f.c
   besyn3f.c
-  cdexp.c
   chdir3f.c
   chmod3f.c
   commitqq3f.c

runtime/flang/cdexp.c

@@ -65,7 +65,6 @@ SET(PGC_SRC_FILES
   memalign.c
   iostdinit.c
   tempnam.c
-  round.c
   s_erf.c
   trace_lin.c
   trace.c

runtime/flangrti/CMakeLists.txt

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2017-2018, NVIDIA CORPORATION.  All rights reserved.
+ * Copyright (c) 2015-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.
@@ -15,9 +15,11 @@
  *
  */
 
-/*  bessel_tjn.c - implement float F2008 bessel_jn transformational intrinsic */
-#include "mthdecls.h"
-#include "stdioInterf.h"
+/* bessel_tjn.c implements float F2008 bessel_jn transformational intrinsic */
+
+float __mth_i_bessel_j0(float arg);
+float __mth_i_bessel_j1(float arg);
+float __mth_i_bessel_jn(int n, float arg);
 
 void
 f90_bessel_jn(float *rslts, int *n1, int *n2, float *x)
@@ -28,13 +30,13 @@ f90_bessel_jn(float *rslts, int *n1, int *n2, float *x)
   for (i = *n1, rslt_p = rslts; i <= *n2; i++, rslt_p++) {
     switch (i) {
     case 0:
-      *rslt_p = BESSEL_J0F(*x);
+      *rslt_p = __mth_i_bessel_j0(*x);
       break;
     case 1:
-      *rslt_p = BESSEL_J1F(*x);
+      *rslt_p = __mth_i_bessel_j1(*x);
       break;
     default:
-      *rslt_p = BESSEL_JNF(i, *x);
+      *rslt_p = __mth_i_bessel_jn(i, *x);
       break;
     }
   }

runtime/flangrti/bessel_tjn.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2017-2018, NVIDIA CORPORATION.  All rights reserved.
+ * Copyright (c) 2015-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.
@@ -15,9 +15,11 @@
  *
  */
 
-/*  bessel_tyn.c - implement float F2008 bessel_yn transformational intrinsic */
-#include "mthdecls.h"
-#include "stdioInterf.h"
+/* bessel_tyn.c implements float F2008 bessel_yn transformational intrinsic */
+
+float __mth_i_bessel_y0(float arg);
+float __mth_i_bessel_y1(float arg);
+float __mth_i_bessel_yn(int n, float arg);
 
 void
 f90_bessel_yn(float *rslts, int *n1, int *n2, float *x)
@@ -28,13 +30,13 @@ f90_bessel_yn(float *rslts, int *n1, int *n2, float *x)
   for (i = *n1, rslt_p = rslts; i <= *n2; i++, rslt_p++) {
     switch (i) {
     case 0:
-      *rslt_p = BESSEL_Y0F(*x);
+      *rslt_p = __mth_i_bessel_y0(*x);
       break;
     case 1:
-      *rslt_p = BESSEL_Y1F(*x);
+      *rslt_p = __mth_i_bessel_y1(*x);
       break;
     default:
-      *rslt_p = BESSEL_YNF(i, *x);
+      *rslt_p = __mth_i_bessel_yn(i, *x);
       break;
     }
   }

runtime/flangrti/bessel_tyn.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2017-2018, NVIDIA CORPORATION.  All rights reserved.
+ * Copyright (c) 2015-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.
@@ -15,10 +15,11 @@
  *
  */
 
-/*  dbessel_tjn.c - implement double F2008 bessel_jn transformational intrinsic
- */
-#include "mthdecls.h"
-#include "stdioInterf.h"
+/* bessel_tjn.c implements double F2008 bessel_jn transformational intrinsic */
+
+double __mth_i_dbessel_j0(double arg);
+double __mth_i_dbessel_j1(double arg);
+double __mth_i_dbessel_jn(int n, double arg);
 
 void
 f90_dbessel_jn(double *rslts, int *n1, int *n2, double *x)
@@ -29,13 +30,13 @@ f90_dbessel_jn(double *rslts, int *n1, int *n2, double *x)
   for (i = *n1, rslt_p = rslts; i <= *n2; i++, rslt_p++) {
     switch (i) {
     case 0:
-      *rslt_p = BESSEL_J0(*x);
+      *rslt_p = __mth_i_dbessel_j0(*x);
       break;
     case 1:
-      *rslt_p = BESSEL_J1(*x);
+      *rslt_p = __mth_i_dbessel_j1(*x);
       break;
     default:
-      *rslt_p = BESSEL_JN(i, *x);
+      *rslt_p = __mth_i_dbessel_jn(i, *x);
       break;
     }
   }

runtime/flangrti/dbessel_tjn.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2017-2018, NVIDIA CORPORATION.  All rights reserved.
+ * Copyright (c) 2015-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.
@@ -15,10 +15,11 @@
  *
  */
 
-/*  dbessel_tyn.c - implement double F2008 bessel_yn transformational intrinsic
- */
-#include "mthdecls.h"
-#include "stdioInterf.h"
+/* bessel_tyn.c implements float F2008 bessel_yn transformational intrinsic */
+
+double __mth_i_dbessel_y0(double arg);
+double __mth_i_dbessel_y1(double arg);
+double __mth_i_dbessel_yn(int n, double arg);
 
 void
 f90_dbessel_yn(double *rslts, int *n1, int *n2, double *x)
@@ -29,13 +30,13 @@ f90_dbessel_yn(double *rslts, int *n1, int *n2, double *x)
   for (i = *n1, rslt_p = rslts; i <= *n2; i++, rslt_p++) {
     switch (i) {
     case 0:
-      *rslt_p = BESSEL_Y0(*x);
+      *rslt_p = __mth_i_dbessel_y0(*x);
       break;
     case 1:
-      *rslt_p = BESSEL_Y1(*x);
+      *rslt_p = __mth_i_dbessel_y1(*x);
       break;
     default:
-      *rslt_p = BESSEL_YN(i, *x);
+      *rslt_p = __mth_i_dbessel_yn(i, *x);
       break;
     }
   }

runtime/flangrti/dbessel_tyn.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
+ * Copyright (c) 1998-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.