Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/pr32222.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/gfortran.dg/pr32222.f90	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,17 @@
+!PR fortran/32222
+! { dg-do compile }
+
+module splinemod
+implicit none
+integer, parameter :: dl = KIND(1.d0)
+Type lSamples
+  integer l(10)
+end Type lSamples
+end module splinemod
+
+subroutine InterpolateClArr(lSet)
+use splinemod
+type (lSamples), intent(in) :: lSet
+real(dl) xl(10)
+xl = real(lSet%l,dl)
+end subroutine InterpolateClArr