maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Make SHAPE= argument to C_F_POINTER() sensitive to -Mlargearray 

Original-commit: flang-compiler/f18@daaa74bbc8
Reviewed-on: https://github.com/flang-compiler/f18/pull/900
Tree-same-pre-rewrite: false
This commit is contained in:
peter klausler 2019-12-31 11:06:07 -08:00
parent dd04f72b2b
commit add998bec1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
flang/lib/evaluate/intrinsics.cc
View File

@ -1711,8 +1711,9 @@ IntrinsicProcTable::Implementation::HandleC_F_Pointer(
context.messages().Say(
"SHAPE= argument to C_F_POINTER() must appear when FPTR= is an array"_err_en_US);
}
characteristics::DummyDataObject shape{
characteristics::TypeAndShape{SubscriptInteger{}.GetType(), 1}};
characteristics::DummyDataObject shape{characteristics::TypeAndShape{
DynamicType{TypeCategory::Integer, defaults_.subscriptIntegerKind()},
1}};
shape.intent = common::Intent::In;
shape.attrs.set(characteristics::DummyDataObject::Attr::Optional);
dummies.emplace_back("shape"s, std::move(shape));