functionis_type_declaration

logical function is_type_declaration(low)
    character(len=*), intent(in) :: low     !! the statement, in lowercase
    character(len=:), allocatable :: word
    integer :: n, next
    character :: c

    call type_keyword(low, n, word)
    is_type_declaration = n > 0
    if (n == 0 .or. n >= len(low)) return
    next = n + verify(low(n + 1:)//'x', ' ')
    c = low(n + 1:n + 1)
    if (index('abcdefghijklmnopqrstuvwxyz0123456789_', c) > 0) then
        is_type_declaration = .false.
        return
    end if
    if (next > len(low)) return
    if (low(next:next) == '=' .or. low(next:next) == '%') is_type_declaration = .false.
end function is_type_declaration