mleair

The fix checks for an empty section under the A_SUBSCR case in collapse_assignment() in transfrm.c. The check looks like this: ``` case A_SUBSCR: if (!contiguous_section(rhs) || is_empty_section(rhs)) return 0; ```...

@bryanpkc Sorry, I am too busy right now to implement, test, and upstream the fix.

@bryanpkc I am available to answer any additional questions, though.

Note: The workaround, "procedure (blas_dgemm), pointer :: f", causes a seg fault for the same reason as Flang #872

> @kiranchandramohan , would you be able to give me another two hints? > > 1. Is there a way to map an SPTR to an AST? > 2. If...

How are you traversing the ASTs? Did you use the ast_traverse() function? I believe it's supposed to visit ASTs at most once.

Looks good to me!

This is probably a bug specific to the print (I/O) statement. Assigning x([1]) to a temporary variable and printing the temporary variable appears to work.