f2k_tester.f90

Go to the documentation of this file.

!----------------------------------------------------------------------------------------
!
! This file is part of f2k.
!
! Copyright (C) 2016-2017 by the f2k authors
!
! The f2k code is free software;
! You can use it, redistribute it, and/or modify it under the terms
! of the GNU General Public License as published by the Free Software Foundation;
! either version 3 of the License, or (at your option) any later version.
! The full text of the license can be found in the file LICENSE at
! the top level of the f2k distribution.
!
!----------------------------------------------------------------------------------------


!----------------------------------------------------------------------------------------


module f2k_test

    implicit none

    private

    !----------------------------------------------------------------------------------------
    ! Internal definitions:

    !----------------------------------------------------------------------------------------
    ! public definitions:
    integer ( kind = 4 ), public :: test_unit = 666
    public :: start_test, end_test

    !----------------------------------------------------------------------------------------

contains

    ! ---------------------------------------------------------------------------------------------
    subroutine start_test( outroot )

        implicit none

        character ( len = * ), intent(in), optional :: outroot

        character ( len = : ), allocatable :: root

        ! check for the presence of an output path:
        if ( present( outroot ) ) then
            root = adjustl( trim( outroot ) )
        else
            root = 'output'
        end if
        ! open the test output file:
        open( unit = test_unit, file=root, status='REPLACE', action='WRITE' )

    end subroutine start_test

    ! ---------------------------------------------------------------------------------------------
    subroutine end_test( )

        implicit none

        ! close the test output file:
        close( unit = test_unit )

    end subroutine end_test

    ! ---------------------------------------------------------------------------------------------

end module f2k_test