Browse files

Remove use of F2008 int8 & int16 types (use c_int8_t & c_int16_t inst…

…ead).
  • Loading branch information...
1 parent ef451d9 commit 030ddedfa82809a531416a82fe22858364aa17ce @jtappin jtappin committed Jan 12, 2013
Showing with 11 additions and 13 deletions.
  1. +5 −6 src/gtk-draw-hl-tmpl.f90
  2. +6 −7 src/gtk-draw-hl.f90
View
11 src/gtk-draw-hl-tmpl.f90
@@ -23,7 +23,7 @@
!
! Contributed by James Tappin
! Some code derived from a demo program by "tadeboro" posted on the gtk forums.
-! Last modification: 07-24-2012
+! Last modification: 01-12-2013
!!$T Template file for gtk-draw-hl.f90.
!!$T Make edits to this file, and keep them identical between the
@@ -494,8 +494,6 @@ end function hl_gtk_drawing_area_get_surface
!+
function hl_gtk_drawing_area_get_gdk_pixbuf(area) &
& result(pixb)
- use iso_fortran_env, only: int8, int16
-
type(c_ptr) :: pixb
type(c_ptr), intent(in) :: area
@@ -512,9 +510,10 @@ function hl_gtk_drawing_area_get_gdk_pixbuf(area) &
integer :: i,j,n,m
! Define endianness
- integer(kind=int8), dimension(2), parameter :: z1 = [0_int8, 1_int8]
- integer(kind=int16), parameter :: z2 = transfer(z1, 0_int16)
- logical, parameter :: is_big_endian = z2 == 1_int16
+ integer(kind=c_int8_t), dimension(2), parameter :: &
+ & z1 = [0_c_int8_t, 1_c_int8_t]
+ integer(kind=c_int16_t), parameter :: z2 = transfer(z1, 0_c_int16_t)
+ logical, parameter :: is_big_endian = z2 == 1_c_int16_t
surface = hl_gtk_drawing_area_get_surface(area)
nx = cairo_image_surface_get_width(surface)
View
13 src/gtk-draw-hl.f90
@@ -23,11 +23,11 @@
!
! Contributed by James Tappin
! Some code derived from a demo program by "tadeboro" posted on the gtk forums.
-! Last modification: 07-24-2012
+! Last modification: 01-12-2013
! --------------------------------------------------------
! gtk-draw-hl.f90
-! Generated: Fri Jan 11 21:29:12 2013 GMT
+! Generated: Sat Jan 12 23:36:32 2013 GMT
! Please do not edit this file directly,
! Edit gtk-draw-hl-tmpl.f90, and use ./mk_gtk_hl.pl to regenerate.
! Generated for GTK+ version: 2.24.0.
@@ -493,8 +493,6 @@ end function hl_gtk_drawing_area_get_surface
!+
function hl_gtk_drawing_area_get_gdk_pixbuf(area) &
& result(pixb)
- use iso_fortran_env, only: int8, int16
-
type(c_ptr) :: pixb
type(c_ptr), intent(in) :: area
@@ -511,9 +509,10 @@ function hl_gtk_drawing_area_get_gdk_pixbuf(area) &
integer :: i,j,n,m
! Define endianness
- integer(kind=int8), dimension(2), parameter :: z1 = [0_int8, 1_int8]
- integer(kind=int16), parameter :: z2 = transfer(z1, 0_int16)
- logical, parameter :: is_big_endian = z2 == 1_int16
+ integer(kind=c_int8_t), dimension(2), parameter :: &
+ & z1 = [0_c_int8_t, 1_c_int8_t]
+ integer(kind=c_int16_t), parameter :: z2 = transfer(z1, 0_c_int16_t)
+ logical, parameter :: is_big_endian = z2 == 1_c_int16_t
surface = hl_gtk_drawing_area_get_surface(area)
nx = cairo_image_surface_get_width(surface)

0 comments on commit 030dded

Please sign in to comment.