diff --git a/unittest/fortran/test_fortran_fixexternal.f90 b/unittest/fortran/test_fortran_fixexternal.f90 index 61fea1be9d..d46e1ec673 100644 --- a/unittest/fortran/test_fortran_fixexternal.f90 +++ b/unittest/fortran/test_fortran_fixexternal.f90 @@ -51,7 +51,7 @@ CONTAINS CALL instance%fix_external_set_energy_peratom('ext1', e) CALL instance%fix_external_set_virial_peratom('ext1', v) CLASS DEFAULT - WRITE(0,*) 'UMM...this should never happen.' + WRITE(error_unit,*) 'UMM...this should never happen.' STOP 1 END SELECT END SUBROUTINE f_callback_ss @@ -93,7 +93,7 @@ CONTAINS CALL instance%fix_external_set_energy_peratom('ext1', e) CALL instance%fix_external_set_virial_peratom('ext1', v) CLASS DEFAULT - WRITE(0,*) 'UMM...this should never happen.' + WRITE(error_unit,*) 'UMM...this should never happen.' STOP 1 END SELECT END SUBROUTINE f_callback_sb @@ -135,7 +135,7 @@ CONTAINS CALL instance%fix_external_set_energy_peratom('ext1', e) CALL instance%fix_external_set_virial_peratom('ext1', v) CLASS DEFAULT - WRITE(0,*) 'UMM...this should never happen.' + WRITE(error_unit,*) 'UMM...this should never happen.' STOP 1 END SELECT END SUBROUTINE f_callback_bb