testsuite: Nullify pointers before first usage.

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.mi / vla.f90

diff --git a/gdb/testsuite/gdb.mi/vla.f90 b/gdb/testsuite/gdb.mi/vla.f90
index 10c3dcce94df5defde667f76950080fe18c94394..c3e48dcd0b623238e9f88e884dc5b9066d1accb1 100644 (file)
--- a/gdb/testsuite/gdb.mi/vla.f90
+++ b/gdb/testsuite/gdb.mi/vla.f90
@@ -18,6 +18,7 @@ program vla
   real, target, allocatable :: vla2(:, :)
   real, pointer :: pvla2 (:, :)
   logical :: l
+  nullify (pvla2)
 
   allocate (vla1 (5))         ! vla1-not-allocated
   l = allocated(vla1)         ! vla1-allocated