diff options
| author | Thomas König <tkoenig@gcc.gnu.org> | 2020-04-19 14:05:46 +0200 |
|---|---|---|
| committer | Thomas König <tkoenig@gcc.gnu.org> | 2020-04-19 14:05:46 +0200 |
| commit | ba36d0b9d472c4193772878969d57d3d5ea1ee5a (patch) | |
| tree | 02971e0f9ac23aeb6a6fc895474e0154ca12e8c2 | |
| parent | e91c0a35e5d1af2018c379962cbe1008788aba72 (diff) | |
| download | gcc-ba36d0b9d472c4193772878969d57d3d5ea1ee5a.zip gcc-ba36d0b9d472c4193772878969d57d3d5ea1ee5a.tar.gz gcc-ba36d0b9d472c4193772878969d57d3d5ea1ee5a.tar.bz2 | |
PR 94347 - add a test case for something a PR has fixed itself.
2020-04-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/94347
* gfortran.dg/char_pointer_init_1.f90: New test.
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_init_12.f90 | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 315a29b..122c737 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2020-04-19 Thomas Koenig <tkoenig@gcc.gnu.org> + PR fortran/94347 + * gfortran.dg/char_pointer_init_1.f90: New test. + +2020-04-19 Thomas Koenig <tkoenig@gcc.gnu.org> + PR fortran/57129 * gfortran.dg/subroutine_as_type.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/pointer_init_12.f90 b/gcc/testsuite/gfortran.dg/pointer_init_12.f90 new file mode 100644 index 0000000..b2bce01 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pointer_init_12.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } +! PR 94347 - this used to cause an ICE. +! Original test case by "Serghei". +program main + character(10), target :: a + character(:), pointer :: p => null() + p => a +end program main |