[libgfortran,committed] Fix SHAPE intrinsic with KIND values 1 and 2

Wed, 26 Aug 2015 05:40:42 -0700 

Attached patch fixes the SHAPE intrinsic with option argument KIND values of 1 
and 2. While we already accept and emit code for SHAPE with KIND values, the 
runtime versions with integer kinds 1 and 2 are missing (while values of 4, 8 
and 10 are present).

The patch adds the necessary generated files, and symbols into gfortran.map, as 
well as a testcase.

I also took the opportunity to fix an error in the type of the SHAPE argument, 
which is a generic array (array_t) and not a specifically-typed version. This 
changes nothing for the generated code, because only the shape of the array 
descriptor is accessed. But it’s cleaner that way.

Committed as revision 227210, after bootstrapping and regtesting on 
x86_64-apple-darwin15.

FX

Attachment: shape.ChangeLog
Description: Binary data

Attachment: shape.diff
Description: Binary data

Reply via email to