diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-02-10 15:38:19 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-02-10 15:38:19 +0000 |
| commit | 1386121ecd068799110d01f01e20e190e3937d25 (patch) | |
| tree | 011854410c2fefed34820a056e5b1598c61becf9 | |
| parent | ab23d6fa98c395c4eb5dba58fa42397942e9da63 (diff) | |
| download | gcc-1386121ecd068799110d01f01e20e190e3937d25.zip gcc-1386121ecd068799110d01f01e20e190e3937d25.tar.gz gcc-1386121ecd068799110d01f01e20e190e3937d25.tar.bz2 | |
re PR fortran/67679 (-Wunitialized reports on compiler-generated variables)
2019-02-10 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/67679
* gfortran.dg/warn_undefined_1.f90: New test.
From-SVN: r268747
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/warn_undefined_1.f90 | 28 |
2 files changed, 33 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f7b9f0b..789f5ad 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2019-02-10 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/67679 + * gfortran.dg/warn_undefined_1.f90: New test. + 2019-02-10 Jakub Jelinek <jakub@redhat.com> PR tree-optimization/89268 diff --git a/gcc/testsuite/gfortran.dg/warn_undefined_1.f90 b/gcc/testsuite/gfortran.dg/warn_undefined_1.f90 new file mode 100644 index 0000000..67f7ca9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/warn_undefined_1.f90 @@ -0,0 +1,28 @@ +! { dg-do compile } +! { dg-options "-O2 -Wuninitialized" } +! PR 67679 - this used to cause an undefined warning for +! variables generated by the compiler. + +subroutine s(h, Gmin, r) + + implicit none + real, intent(in) :: Gmin(3), h(3) + integer, intent(inout) :: r + + integer :: x_min(3), x_max(3), k, iStat + logical, dimension(:), allocatable :: check + + do k = 1,1 + x_min(k) = int(Gmin(k)*h(k)) + x_max(k) = int(Gmin(k)*h(k)) + end do + + allocate(check(x_min(1):x_max(1)),stat=iStat) + + check(:) = .false. + + do k = x_min(1),x_max(1) + r = r + 1 + end do + +end |