diff --git a/src/gray_errors.f90 b/src/gray_errors.f90
index 4f6d42e..a09b37f 100644
--- a/src/gray_errors.f90
+++ b/src/gray_errors.f90
@@ -31,56 +31,56 @@ module gray_errors
   type(error_spec), parameter :: unstable_beam =  &
     error_spec(offset=0, subcases=2,              &
                mod='gray_core', proc='gray_main', &
-               msg=reshape([str ::                &
-                 'beamtracing may be unstable'],  &
-                 [10], [str :: '']))
+               msg=[str ::                        &
+                 'beamtracing may be unstable',   &
+                 '', '', '', '', '', '', '', '', ''])
 
-  type(error_spec), parameter :: dielectric_tensor =              &
-    error_spec(offset=after(unstable_beam), subcases=2,           &
-               mod='gray_core', proc='gray_main',                 &
-               msg=reshape([str ::                                &
-                 'ε tensor, overflow in `fsup`',                  &
-                 'ε tensor, integration error in `hermitian_2`'], &
-                 [10], [str :: '']))
+  type(error_spec), parameter :: dielectric_tensor =             &
+    error_spec(offset=after(unstable_beam), subcases=2,          &
+               mod='gray_core', proc='gray_main',                &
+               msg=[str ::                                       &
+                 'ε tensor, overflow in `fsup`',                 &
+                 'ε tensor, integration error in `hermitian_2`', &
+                 '', '', '', '', '', '', '', ''])
 
   type(error_spec), parameter :: warmdisp_convergence =         &
     error_spec(offset=after(dielectric_tensor), subcases=2,     &
                mod='dispersion', proc='warmdisp',               &
-               msg=reshape([str ::                              &
+               msg=[str ::                                      &
                  'failed to converge, returned fallback value', &
-                 'failed to converge, returned last value'],    &
-                 [10], [str :: '']))
+                 'failed to converge, returned last value',     &
+                 '', '', '', '', '', '', '', ''])
 
   type(error_spec), parameter :: warmdisp_result =              &
     error_spec(offset=after(warmdisp_convergence), subcases=2,  &
                mod='dispersion', proc='warmdisp',               &
-               msg=reshape([str ::                              &
+               msg=[str ::                                      &
                  'final N⊥² is NaN or ±Infinity',               &
-                 'final N⊥² in 3rd quadrant'],                  &
-                 [10], [str :: '']))
+                 'final N⊥² in 3rd quadrant',                   &
+                 '', '', '', '', '', '', '', ''])
 
   type(error_spec), parameter :: negative_absorption =     &
     error_spec(offset=after(warmdisp_result), subcases=1,  &
                mod='gray_core', proc='alpha_effj',         &
-               msg=reshape([str ::                         &
-                 'negative absorption coeff.'],            &
-                 [10], [str :: '']))
+               msg=[str ::                                 &
+                 'negative absorption coeff.',             &
+                 '', '', '', '', '', '', '', '', ''])
 
   type(error_spec), parameter :: fpp_integration =             &
     error_spec(offset=after(negative_absorption), subcases=1,  &
                mod='eccd', proc='eccdeff',                     &
-               msg=reshape([str ::                             &
-                 'fpp integration error'],                     &
-                  [10], [str :: '']))
+               msg=[str ::                                     &
+                 'fpp integration error',                      &
+                 '', '', '', '', '', '', '', '', ''])
 
-  type(error_spec), parameter :: fcur_integration =               &
-    error_spec(offset=after(fpp_integration), subcases=3,         &
-               mod='eccd', proc='eccdeff',                        &
-               msg=reshape([str ::                                &
-                 'fcur integration error (no trapping)',          &
-                 'fcur integration error (1st trapping region)',  &
-                 'fcur integration error (2st trapping region)'], &
-                  [10], [str :: '']))
+  type(error_spec), parameter :: fcur_integration =              &
+    error_spec(offset=after(fpp_integration), subcases=3,        &
+               mod='eccd', proc='eccdeff',                       &
+               msg=[str ::                                       &
+                 'fcur integration error (no trapping)',         &
+                 'fcur integration error (1st trapping region)', &
+                 'fcur integration error (2st trapping region)', &
+                 '', '', '', '', '', '', ''])
 
   ! Errors occuring during raytracing
   type(error_spec), parameter :: raytracing_errors(*) = [unstable_beam]