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
shape.ChangeLog
Description: Binary data
shape.diff
Description: Binary data