File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -1305,7 +1305,9 @@ def visit_LBOUND(self, node):
13051305 if entry .scope == SCOPE .global_ :
13061306 self .ic_fparam (gl .PTR_TYPE , '#{}' .format (entry .mangled ))
13071307 elif entry .scope == SCOPE .parameter :
1308- self .ic_fparam (entry .t , entry .offset )
1308+ self .ic_pload (gl .PTR_TYPE , entry .t , entry .offset )
1309+ t1 = optemps .new_t ()
1310+ self .ic_fparam (gl .PTR_TYPE , t1 )
13091311 elif entry .scope == SCOPE .local :
13101312 self .ic_paddr (- entry .offset , entry .t )
13111313 t1 = optemps .new_t ()
@@ -1320,7 +1322,9 @@ def visit_UBOUND(self, node):
13201322 if entry .scope == SCOPE .global_ :
13211323 self .ic_fparam (gl .PTR_TYPE , '#{}' .format (entry .mangled ))
13221324 elif entry .scope == SCOPE .parameter :
1323- self .ic_fparam (entry .t , entry .offset )
1325+ self .ic_pload (gl .PTR_TYPE , entry .t , entry .offset )
1326+ t1 = optemps .new_t ()
1327+ self .ic_fparam (gl .PTR_TYPE , t1 )
13241328 elif entry .scope == SCOPE .local :
13251329 self .ic_paddr (- entry .offset , entry .t )
13261330 t1 = optemps .new_t ()
You can’t perform that action at this time.
0 commit comments