Declaration of a unit test
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=:), | public, | allocatable | :: | name |
Name of the test |
||
logical, | public | :: | should_fail | = | .false. |
Whether test is supposed to fail |
|
procedure(test_interface), | public, | pointer, nopass | :: | test | => | null() |
Entry point of the test |
type :: unittest_type !> Name of the test character(len=:), allocatable :: name !> Entry point of the test procedure(test_interface), pointer, nopass :: test => null() !> Whether test is supposed to fail logical :: should_fail = .false. end type unittest_type