Patch for gl/fwrap.fpp


--- fwrap.fpp.org       2005-09-21 10:54:11.000000000 +0200
+++ fwrap.fpp   2005-09-20 10:57:14.000000000 +0200
@@ -3842,6 +3842,7 @@
 ! Module procedures
 !------------------

+character(len=1) :: tc
 contains

 ! OpenGL 1.0
@@ -3920,8 +3921,11 @@
 type(glcptr) INTENT_IN lists
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
+character(len=1) :: tc
+
 do i=1,glcptr_length
-   temp(i) = ichar(lists%addr(i:i))
+   tc=lists%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4glcalllists(n,ixtype,temp,i)
@@ -4396,8 +4400,11 @@
 type(glcptr) INTENT_IN pixels
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
+character(len=1) :: tc
+
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4gldrawpixels(width,height,format,xtype,temp,i)
@@ -4845,8 +4852,10 @@
 type(glcptr), intent(in) :: pixels
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
+character(len=1) :: tc
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4glgetteximage(xtarget,level,format,xtype,temp,i)
@@ -5679,7 +5688,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4glreadpixels(x,y,width,height,format,xtype,temp,i)
@@ -6163,7 +6173,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4glteximage1d(xtarget,level,components,width,border,format,xtype,temp,i)
@@ -6234,7 +6245,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4glteximage2d(xtarget,level,components,width,height,border,format,xtype, &
@@ -6573,7 +6585,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glcolorpointer(xsize,xtype,stride,temp,i)
@@ -6695,7 +6708,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(indices%addr(i:i))
+   tc=indices%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4gldrawelements(mode,xcount,xtype,temp,i)
@@ -6780,7 +6794,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glindexpointer(xtype,stride,temp,i)
@@ -6859,7 +6874,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4glinterleavedarrays(format,stride,temp,i)
@@ -6919,7 +6935,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glnormalpointer(xtype,stride,temp,i)
@@ -7013,7 +7030,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4gltexcoordpointer(xsize,xtype,stride,temp,i)
@@ -7076,7 +7094,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4gltexsubimage1d(xtarget,level,xoffset,width,format,xtype,temp,i)
@@ -7142,7 +7161,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4gltexsubimage2d(xtarget,level,xoffset,yoffset,width,height,format, &
@@ -7201,7 +7221,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glvertexpointer(xsize,xtype,stride,temp,i)
@@ -7253,7 +7274,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(indices%addr(i:i))
+   tc=indices%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i = glcptr_length
 call f9y4gldrawrangeelements(mode,start,xend,xcount,xtype,temp,i)
@@ -7319,7 +7341,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glteximage3d(xtarget,level,internalformat,width,height, &
@@ -7391,7 +7414,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4gltexsubimage3d(xtarget,level,xoffset,yoffset,zoffset,width,height, &
@@ -7709,7 +7733,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4gltexsubimage1dext(xtarget,level,xoffset,width,format,xtype,temp,i)
@@ -7775,7 +7800,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4gltexsubimage2dext(xtarget,level,xoffset,yoffset,width,height,format, &
@@ -7855,7 +7881,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glteximage3dext(xtarget,level,internalformat,width,height, &
@@ -7927,7 +7954,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(pixels%addr(i:i))
+   tc=pixels%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4gltexsubimage3dext(xtarget,level,xoffset,yoffset,zoffset,width,height, &
@@ -8096,7 +8124,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glvertexpointerext(xsize,xtype,stride,xcount,temp,i)
@@ -8148,7 +8177,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glnormalpointerext(xtype,stride,xcount,temp,i)
@@ -8217,7 +8247,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glcolorpointerext(xsize,xtype,stride,xcount,temp,i)
@@ -8286,7 +8317,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4glindexpointerext(xtype,stride,xcount,temp,i)
@@ -8339,7 +8371,8 @@
 integer(kind=gluint), dimension(glcptr_length) :: temp
 integer(kind=glint) :: i
 do i=1,glcptr_length
-   temp(i) = ichar(ptr%addr(i:i))
+   tc=ptr%addr(i:i)
+   temp(i) = ichar(tc)
 end do
 i=glcptr_length
 call f9y4gltexcoordpointerext(xsize,xtype,stride,xcount,temp,i)


None: F90glPatch1 (last edited 2008-01-10 19:38:38 by localhost)