re PR fortran/15969 (ICE and assertion failure in trans-expr.c)

PR fortran/15969
* gfortran.fortran-torture/execute/der_init_5.f90: New test.

From-SVN: r84466

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 94d75b8246dbac3c5e7f74cd368f4b6ecb7b86e8..7ae23fd8b288d4a3ba49830c73633e29954c15a8 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-10  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       PR fortran/15969
+       * gfortran.fortran-torture/execute/der_init_5.f90: New test.
+
 2004-07-10  David Billinghurst (David.Billinghurst@riotinto.com)
 
        * gfortran.dg/g77/ffixed-form-1.f: Copy from g77.dg

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_init_5.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_5.f90
new file mode 100644 (file)
index 0000000..22c0c33
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_init_5.f90
@@ -0,0 +1,16 @@
+! Check that null initialization of pointer components works.
+! PR 15969 prompted these
+! the commented out tests are cases where we still fail
+program der_init_5
+  type t
+     type(t), pointer :: a => NULL()
+     real, pointer :: b => NULL()
+!     character, pointer :: c => NULL()
+!     integer, pointer, dimension(:) :: d => NULL()
+  end type t
+  type (t) :: p
+  if (associated(p%a)) call abort()
+  if (associated(p%b)) call abort()
+!  if (associated(p%c)) call abort()
+!  if (associated(p%d)) call abort()
+end