test_construct_date_fields_null Subroutine

public subroutine test_construct_date_fields_null()

Arguments

None

Calls

proc~~test_construct_date_fields_null~~CallsGraph proc~test_construct_date_fields_null test_construct_date_fields_null assertfalse assertfalse proc~test_construct_date_fields_null->assertfalse date_fields date_fields proc~test_construct_date_fields_null->date_fields is_valid is_valid proc~test_construct_date_fields_null->is_valid

Source Code

   subroutine test_construct_date_fields_null()
      type(date_fields) :: df
      df = date_fields()
      @assertFalse(df % is_valid(), 'null df should not be valid.')
   end subroutine test_construct_date_fields_null