2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com>
+ * gdb.fortran/vla-type.exp: Access elements in nested structs.
+
+2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com>
+
* gdb.fortran/type.f90: Add nested structures.
* gdb.fortran/whatis-type.exp: Whatis/ptype nested structures.
* gdb.fortran/derived-type.exp: Adapt expected output.
[multi_line "type = Type five" \
"\\s+Type one :: tone" \
"End Type five" ]
+gdb_test "ptype fivev%tone" \
+ [multi_line "type = Type one" \
+ " $int :: ivla\\(10,10,10\\)" \
+ "End Type one" ]
# Check array of types containing a VLA
gdb_breakpoint [gdb_get_line_number "fivearr-filled"]
[multi_line "type = Type five" \
"\\s+Type one :: tone" \
"End Type five" ]
+gdb_test "ptype fivearr(1)%tone" \
+ [multi_line "type = Type one" \
+ " $int :: ivla\\(2,4,6\\)" \
+ "End Type one" ]
gdb_test "ptype fivearr(2)" \
[multi_line "type = Type five" \
"\\s+Type one :: tone" \
"End Type five" ]
+gdb_test "ptype fivearr(2)%tone" \
+ [multi_line "type = Type one" \
+ " $int :: ivla\\(12,14,16\\)" \
+ "End Type one" ]
# Check allocation status of dynamic array and it's dynamic members
gdb_test "ptype fivedynarr" "type = <not allocated>"
[multi_line "type = Type five" \
"\\s+Type one :: tone" \
"End Type five" ]
+gdb_test "ptype fivedynarr(2)%tone" \
+ [multi_line "type = Type one" \
+ " $int :: ivla\\(<not allocated>\\)" \
+ "End Type one" ] \
+ "ptype fivedynarr(2)%tone, not allocated"
# Check dynamic array of types containing a VLA
gdb_breakpoint [gdb_get_line_number "fivedynarr-filled"]
[multi_line "type = Type five" \
"\\s+Type one :: tone" \
"End Type five" ]
+gdb_test "ptype fivedynarr(1)%tone" \
+ [multi_line "type = Type one" \
+ " $int :: ivla\\(2,4,6\\)" \
+ "End Type one" ]
gdb_test "ptype fivedynarr(2)" \
[multi_line "type = Type five" \
"\\s+Type one :: tone" \
"End Type five" ]
+gdb_test "ptype fivedynarr(2)%tone" \
+ [multi_line "type = Type one" \
+ " $int :: ivla\\(12,14,16\\)" \
+ "End Type one" ]