diff options
author | Dan Albert <danalbert@google.com> | 2015-06-17 11:09:54 -0700 |
---|---|---|
committer | Dan Albert <danalbert@google.com> | 2015-06-17 14:15:22 -0700 |
commit | f378ebf14df0952eae870c9865bab8326aa8f137 (patch) | |
tree | 31794503eb2a8c64ea5f313b93100f1163afcffb /gcc-4.6/gcc/testsuite/gfortran.dg/vect/pr50178.f90 | |
parent | 2c58169824949d3a597d9fa81931e001ef9b1bd0 (diff) | |
download | toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.gz toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.bz2 toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.zip |
Delete old versions of GCC.
Change-Id: I710f125d905290e1024cbd67f48299861790c66c
Diffstat (limited to 'gcc-4.6/gcc/testsuite/gfortran.dg/vect/pr50178.f90')
-rw-r--r-- | gcc-4.6/gcc/testsuite/gfortran.dg/vect/pr50178.f90 | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/gcc-4.6/gcc/testsuite/gfortran.dg/vect/pr50178.f90 b/gcc-4.6/gcc/testsuite/gfortran.dg/vect/pr50178.f90 deleted file mode 100644 index e24ce5b15..000000000 --- a/gcc-4.6/gcc/testsuite/gfortran.dg/vect/pr50178.f90 +++ /dev/null @@ -1,29 +0,0 @@ -! { dg-do compile } - -module yemdyn - implicit none - integer, parameter :: jpim = selected_int_kind(9) - integer, parameter :: jprb = selected_real_kind(13,300) - real(kind=jprb) :: elx - real(kind=jprb), allocatable :: xkcoef(:) - integer(kind=jpim),allocatable :: ncpln(:), npne(:) -end module yemdyn - -subroutine suedyn - - use yemdyn - - implicit none - - integer(kind=jpim) :: jm, jn - real(kind=jprb) :: zjm, zjn, zxxx - - jn=0 - do jm=0,ncpln(jn) - zjm=real(jm,jprb) / elx - xkcoef(npne(jn)+jm) = - zxxx*(zjm**2)**0.5_jprb - end do - -end subroutine suedyn - -! { dg-final { cleanup-tree-dump "vect" } } |