test_is_in_char_set Subroutine

public subroutine test_is_in_char_set()

Arguments

None

Calls

proc~~test_is_in_char_set~~CallsGraph proc~test_is_in_char_set test_is_in_char_set assertfalse assertfalse proc~test_is_in_char_set->assertfalse asserttrue asserttrue proc~test_is_in_char_set->asserttrue is_in_char_set is_in_char_set proc~test_is_in_char_set->is_in_char_set

Source Code

   subroutine test_is_in_char_set()
      character(len=*), parameter :: DIGITS = '1234567890'
      character :: ch

      ch = '0'
      @assertTrue(is_in_char_set(ch, DIGITS), 'Character not found')
      ch = 'A'
      @assertFalse(is_in_char_set(ch, DIGITS), 'Character is not in set')

   end subroutine test_is_in_char_set