diff options
author | Dan Albert <danalbert@google.com> | 2015-10-13 16:28:19 -0700 |
---|---|---|
committer | Dan Albert <danalbert@google.com> | 2015-10-13 16:28:19 -0700 |
commit | a8c075f72b231c37823661ba0d7d082a21cd39d9 (patch) | |
tree | 395aa3b848d56037292e50466643453485073018 /gcc-4.8/gcc/testsuite/gfortran.dg/warn_conversion.f90 | |
parent | 5aff2e0142aca13849b4e51de503e71d5010efa6 (diff) | |
download | toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.gz toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.bz2 toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.zip |
Remove gcc-4.8.
Change-Id: Iee9c6985c613f58c82e33a91722d371579eb290f
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/warn_conversion.f90')
-rw-r--r-- | gcc-4.8/gcc/testsuite/gfortran.dg/warn_conversion.f90 | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/warn_conversion.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/warn_conversion.f90 deleted file mode 100644 index e9b7e396e..000000000 --- a/gcc-4.8/gcc/testsuite/gfortran.dg/warn_conversion.f90 +++ /dev/null @@ -1,61 +0,0 @@ -! { dg-do compile } -! { dg-options "-Wconversion" } - -! -! PR fortran/27866 -improve -Wconversion -! -SUBROUTINE pr27866 - double precision :: d - real :: r - d = 4d99 - r = d ! { dg-warning "conversion" } -END SUBROUTINE - -SUBROUTINE pr27866c4 - real(kind=4) :: a - real(kind=8) :: b - integer(kind=1) :: i1 - integer(kind=4) :: i4 - i4 = 2.3 ! { dg-warning "conversion" } - i1 = 500 ! { dg-error "overflow" } - a = 2**26-1 ! assignment INTEGER(4) to REAL(4) - no warning - b = 1d999 ! { dg-error "overflow" } - - a = i4 ! assignment INTEGER(4) to REAL(4) - no warning - b = i4 ! assignment INTEGER(4) to REAL(8) - no warning - i1 = i4 ! { dg-warning "conversion" } - a = b ! { dg-warning "conversion" } -END SUBROUTINE - - -! -! PR fortran/35003 - spurious warning with -Wconversion -! Contributed by Brian Barnes <bcbarnes AT gmail DOT com> -! -SUBROUTINE pr35003 - IMPLICIT NONE - integer(8) :: i, n - n = 1_8 - - do i = 1_8,n - enddo -END SUBROUTINE - - -! -! PR fortran/42809 - Too much noise with -Wconversion -! Contributed by Harald Anlauf <anlauf AT gmx DOT de> -! -SUBROUTINE pr42809 - implicit none - integer, parameter :: sp = kind (1.0) - integer, parameter :: dp = kind (1.d0) - real(sp) :: s - real(dp) :: d - complex(dp) :: z - - s = 0 ! assignment INTEGER(4) to REAL(4) - no warning - d = s ! assignment REAL((8)) to REAL(4) - no warning - z = (0, 1) ! conversion INTEGER(4) to REAL(4), - ! assignment COMPLEX(4) to COMPLEX(8) - no warning -END SUBROUTINE |