diff --git a/tests/test_radtran.f90 b/tests/test_radtran.f90
index 9f4464c..3127245 100644
--- a/tests/test_radtran.f90
+++ b/tests/test_radtran.f90
@@ -64,7 +64,7 @@ subroutine test_Radtran()
     pdensities(:,:) = 1.0_dp
     radii(:,:) = 1.0e-5_dp
     
-    call rad%radiate(T(1), T, P, densities, dz, pdensities, radii, err)
+    call rad%radiate(T(1), T, P, densities, dz, pdensities, radii, err=err)
     if (allocated(err)) then
       print*,err
       stop 1