diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/vla-type.exp')
-rwxr-xr-x | gdb/testsuite/gdb.fortran/vla-type.exp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.fortran/vla-type.exp b/gdb/testsuite/gdb.fortran/vla-type.exp index 925c583..e2b8d71 100755 --- a/gdb/testsuite/gdb.fortran/vla-type.exp +++ b/gdb/testsuite/gdb.fortran/vla-type.exp @@ -33,8 +33,12 @@ set int [fortran_int4] # Check if not allocated VLA in type does not break # the debugger when accessing it. -gdb_breakpoint [gdb_get_line_number "before-allocated"] -gdb_continue_to_breakpoint "before-allocated" +# break main for Flang compiler already breaks here +if ![test_compiler_info "clang-*"] { + gdb_breakpoint [gdb_get_line_number "before-allocated"] + gdb_continue_to_breakpoint "before-allocated" +} + gdb_test "print twov" " = \\\( ivla1 = <not allocated>, ivla2 = <not allocated> \\\)" \ "print twov before allocated" gdb_test "print twov%ivla1" " = <not allocated>" \ |