[Dart-dev] [6906] DART/trunk/random_seq/test_reseed.f90: fix this test so it compiles correctly.

[nancy at ucar.edu]

Revision: 6906
Author:   nancy
Date:     2014-04-21 10:20:13 -0600 (Mon, 21 Apr 2014)
Log Message:
-----------
fix this test so it compiles correctly.  was useful in
uncovering a bug in the time_manager code.

Modified Paths:
--------------
    DART/trunk/random_seq/test_reseed.f90

-------------- next part --------------
Modified: DART/trunk/random_seq/test_reseed.f90
===================================================================
--- DART/trunk/random_seq/test_reseed.f90	2014-04-21 16:18:11 UTC (rev 6905)
+++ DART/trunk/random_seq/test_reseed.f90	2014-04-21 16:20:13 UTC (rev 6906)
@@ -9,7 +9,7 @@
 use        types_mod, only : r8, digits12
 use    utilities_mod, only : register_module, error_handler, E_ERR, &
                              initialize_utilities, finalize_utilities, &
-                             logfileunit, nmlfileunit,  &
+                             logfileunit, nmlfileunit, E_MSG, &
                              find_namelist_in_file, check_namelist_read, &
                              open_file, close_file, do_nml_file, do_nml_term
 use time_manager_mod, only : time_type, operator(+), set_time, get_time, &
@@ -252,7 +252,8 @@
 
 real(r8), allocatable :: history(:)
 real(r8) :: next_val
-integer :: i, j, k, nextseed, seedhist(:)
+integer :: i, j, k, nextseed
+integer, allocatable :: seedhist(:)
 type(time_type) :: t, base_time, state_time, delta_time, delta_time2
 type(random_seq_type) :: seq1