Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Character length tweaks in gdk-pixbuf-hl.f90

  • Loading branch information...
commit 683c67eb66c8e359030371307676acd056d9d69c 1 parent a757873
@jtappin jtappin authored
Showing with 10 additions and 7 deletions.
  1. +10 −7 src/gdk-pixbuf-hl.f90
View
17 src/gdk-pixbuf-hl.f90
@@ -73,7 +73,9 @@ module gdk_pixbuf_hl
module procedure hl_gdk_pixbuf_set_pixels16
end interface hl_gdk_pixbuf_set_pixels
- integer, parameter :: gdk_pixbuf_type_len=20
+ integer, parameter :: hl_gdk_pixbuf_type_len=20
+ integer, parameter :: hl_gdk_pixbuf_option_len=80
+
contains
!+
@@ -569,14 +571,15 @@ subroutine hl_gdk_pixbuf_save(pixbuf, file, type, options, ok, error)
! ERROR: f_string: optional: An error message if the write failed.
!-
- character(len=gdk_pixbuf_type_len) :: ftype
+ character(len=hl_gdk_pixbuf_type_len) :: ftype
integer :: pd
type(c_ptr), target :: err
type(gerror), pointer :: ferr
integer(kind=c_int) :: iok
character(len=120) :: ferrmsg
type(c_ptr), dimension(:), allocatable :: copt_names, copt_vals
- character(len=20), target, dimension(:), allocatable :: opt_names, opt_vals
+ character(len=hl_gdk_pixbuf_option_len), target, &
+ & dimension(:), allocatable :: opt_names, opt_vals
integer :: peq, i, nopt
if (.not. present(type)) then
@@ -726,7 +729,7 @@ function hl_gdk_pixbuf_format_info(name, mime_types, extensions, &
! Returns .true. if the type is found, .false. if it is not.
!-
- character(len=gdk_pixbuf_type_len), dimension(:), allocatable :: names
+ character(len=hl_gdk_pixbuf_type_len), dimension(:), allocatable :: names
integer :: idx, i
type(c_ptr) :: flist, fmt
type(c_ptr), target :: vlist
@@ -806,7 +809,7 @@ end function hl_gdk_pixbuf_format_info
!+
function hl_gdk_pixbuf_format_find(mime_type, extension) result(name)
- character(len=gdk_pixbuf_type_len) :: name
+ character(len=hl_gdk_pixbuf_type_len) :: name
character(len=*), intent(in), optional :: mime_type, extension
! Find the format type appropriate to a mime_type or a
@@ -816,10 +819,10 @@ function hl_gdk_pixbuf_format_find(mime_type, extension) result(name)
! EXTENSION: f_string: optional: The file extension to match.
!
! If no match is found then an empty string is returned.
- ! mime_type has precedence over extension.
+ ! Mime_type has precedence over extension.
!-
- character(len=gdk_pixbuf_type_len), dimension(:), allocatable :: names
+ character(len=hl_gdk_pixbuf_type_len), dimension(:), allocatable :: names
character(len=20), dimension(:), allocatable :: types
integer :: i, zidx
logical :: found
Please sign in to comment.
Something went wrong with that request. Please try again.