Talk About Network

Google


Register and Login
Nick
Password
Register create new account Sign up is FREE and you can post replies, new topics, bookmark posts and more!
Recover lost password


Programming > Fortran > KIND optional a...
Latest [ Topics | Posts ] Archive Post A New Topic Post a Reply
<< Topic < Post Post 1 of 17 Topic 8245 of 8908
Post > Topic >>

KIND optional argument in transformational intrinsics

by "James Van Buskirk" <not_valid@[EMAIL PROTECTED] > May 16, 2008 at 02:19 AM

I found that gfortran is missing the KIND optional argument in some
of the transformational intrinsics.  Also a couple of usages of KIND
were not do***ented, and gfortran does not yet accept f2008 usage for
the SIZE intrinsic.

C:\gfortran\james\intrinsics\func1>type kind.f90
program test
   implicit none
   integer, parameter :: ck = kind('A')
   integer, parameter :: ik = selected_int_kind(18)
   integer i
   real x
   integer array(1)

   i = 42
   x = 3.14
   array = 13

   write(*,*) achar(i,kind=ck) ! KIND works but is not do***ented
   write(*,*) char(i,kind=ck) ! KIND works but is not do***ented
   write(*,*) maxloc(array,kind=ik) ! Consistent with f2003 usage
   write(*,*) minloc(array,kind=ik) ! Consistent with f2003 usage
   write(*,*) nint(x,kind=ik) ! KIND works but is not do***ented
   write(*,*) shape(array,kind=ik) ! Consistent with f2003 usage
   write(*,*) size(ik) ! Consistent with f2008 usage
end program test

C:\gfortran\james\intrinsics\func1>gfortran kind.f90 -okind
kind.f90:15.13:

   write(*,*) maxloc(array,kind=ik) ! Consistent with f2003 usage
            1
Error: Can't find keyword named 'kind' in call to 'maxloc' at (1)
kind.f90:16.13:

   write(*,*) minloc(array,kind=ik) ! Consistent with f2003 usage
            1
Error: Can't find keyword named 'kind' in call to 'minloc' at (1)
kind.f90:18.13:

   write(*,*) shape(array,kind=ik) ! Consistent with f2003 usage
            1
Error: Too many arguments in call to 'shape' at (1)
kind.f90:19.19:

   write(*,*) size(ik) ! Consistent with f2008 usage
                  1
Error: 'array' argument of 'size' intrinsic at (1) must be an array

-- 
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end
 




 17 Posts in Topic:
KIND optional argument in transformational intrinsics
"James Van Buskirk&q  2008-05-16 02:19:53 
Re: KIND optional argument in transformational intrinsics
"FX" <couder  2008-05-16 08:28:13 
Re: KIND optional argument in transformational intrinsics
"James Giles" &  2008-05-16 18:01:06 
Re: KIND optional argument in transformational intrinsics
"James Van Buskirk&q  2008-05-16 12:49:23 
Re: KIND optional argument in transformational intrinsics
"James Van Buskirk&q  2008-05-16 13:34:22 
Re: KIND optional argument in transformational intrinsics
"James Giles" &  2008-05-16 19:35:44 
Re: KIND optional argument in transformational intrinsics
"James Van Buskirk&q  2008-05-16 13:56:04 
Re: KIND optional argument in transformational intrinsics
"James Giles" &  2008-05-16 21:13:38 
Re: KIND optional argument in transformational intrinsics
"James Van Buskirk&q  2008-05-16 15:30:20 
Re: KIND optional argument in transformational intrinsics
"James Giles" &  2008-05-16 21:57:43 
Re: KIND optional argument in transformational intrinsics
"James Giles" &  2008-05-17 21:18:07 
Re: KIND optional argument in transformational intrinsics
glen herrmannsfeldt <g  2008-05-17 22:27:34 
Re: KIND optional argument in transformational intrinsics
Dick Hendrickson <dick  2008-05-18 14:28:38 
Re: KIND optional argument in transformational intrinsics
"James Giles" &  2008-05-18 18:42:22 
Re: KIND optional argument in transformational intrinsics
Dick Hendrickson <dick  2008-05-19 22:11:01 
Re: KIND optional argument in transformational intrinsics
Thomas Koenig <tkoenig  2008-05-16 19:03:19 
Re: KIND optional argument in transformational intrinsics
"James Van Buskirk&q  2008-05-22 11:58:19 

Post A Reply:
  Go here to Signup

AddThis Feed Button


About - Advertising - Contact - Frequently Asked Questions - Privacy Policy - Terms of Use - Signup

Contact
tan12V112 Wed Nov 19 8:31:19 CST 2008.