replica nfl jerseysreplica nfl jerseyssoccer jerseyreplica nfl jerseys forums.silverfrost.com :: View topic - Shape intrinsic with parameter attribute
forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Shape intrinsic with parameter attribute

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support
View previous topic :: View next topic  
Author Message
davidb



Joined: 17 Jul 2009
Posts: 560
Location: UK
PostPosted: Tue Nov 20, 2012 6:26 pm    Post subject: Shape intrinsic with parameter attribute Reply with quote
The compiler gives an error in the following code. But the declaration of variable b is valid Fortran 90 syntax.

Code:

program anon

   integer :: i, j, prototype(2,2)

   integer, parameter, dimension(2,2) :: a = reshape((/1, 2, 3, 4/), (/2,2/))
   integer, parameter, dimension(2,2) :: b = reshape((/1, 2, 3, 4/), shape(prototype))

   do i=1, 2
      print *, (a(i,j), j=1,2)
   end do

   do i=1, 2
      print *, (b(i,j), j=1,2)
   end do

end program anon

_________________
Programmer in: Fortran 77/95/2003/2008, C, C++ (& OpenMP), java, Python, Perl
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 8211
Location: Salford, UK
PostPosted: Wed Nov 21, 2012 9:49 am    Post subject: Reply with quote
I have logged this for investigation.
Back to top
View user's profile Send private message AIM Address
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 8211
Location: Salford, UK
PostPosted: Tue Apr 02, 2013 4:15 pm    Post subject: Reply with quote
I have had a look at this and it looks like the functionality is missing rather than there being code that can be fixed.

I will leave it on the list of things to do but with a low priority because of the amount of work involved.
Back to top
View user's profile Send private message AIM Address
davidb



Joined: 17 Jul 2009
Posts: 560
Location: UK
PostPosted: Tue Apr 02, 2013 4:56 pm    Post subject: Reply with quote
OK Thanks.
_________________
Programmer in: Fortran 77/95/2003/2008, C, C++ (& OpenMP), java, Python, Perl
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 8211
Location: Salford, UK
PostPosted: Mon Feb 09, 2015 7:25 pm    Post subject: Reply with quote
This has now been fixed for the next release.
Back to top
View user's profile Send private message AIM Address
davidb



Joined: 17 Jul 2009
Posts: 560
Location: UK
PostPosted: Fri Feb 13, 2015 7:23 pm    Post subject: Reply with quote
Thank you.
_________________
Programmer in: Fortran 77/95/2003/2008, C, C++ (& OpenMP), java, Python, Perl
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group