gdb/fortran: Show the type for non allocated / associated types

[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.mi / mi-vla-fortran.exp

diff --git a/gdb/testsuite/gdb.mi/mi-vla-fortran.exp b/gdb/testsuite/gdb.mi/mi-vla-fortran.exp
index 0759ccbaebe69cf8574038bc07a0470548518a16..ec04bbe5a69771b5adaaa3d7d05155e478a6cb3e 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-vla-fortran.exp
+++ b/gdb/testsuite/gdb.mi/mi-vla-fortran.exp
@@ -51,10 +51,10 @@ mi_expect_stop "breakpoint-hit" "vla" "" ".*vla.f90" "$bp_lineno" \
 mi_gdb_test "500-data-evaluate-expression vla1" \
   "500\\^done,value=\"<not allocated>\"" "evaluate not allocated vla, before allocation"
 
-mi_create_varobj_checked vla1_not_allocated vla1 "<not allocated>" \
+mi_create_varobj_checked vla1_not_allocated vla1 "$real, allocatable \\(:\\)" \
   "create local variable vla1_not_allocated"
 mi_gdb_test "501-var-info-type vla1_not_allocated" \
-  "501\\^done,type=\"<not allocated>\"" \
+  "501\\^done,type=\"$real, allocatable \\(:\\)\"" \
   "info type variable vla1_not_allocated"
 mi_gdb_test "502-var-show-format vla1_not_allocated" \
   "502\\^done,format=\"natural\"" \
@@ -146,10 +146,10 @@ gdb_expect {
     -re "580\\^done,value=\"<not associated>\".*${mi_gdb_prompt}$" {
        pass $test
 
-       mi_create_varobj_checked pvla2_not_associated pvla2 "<not associated>" \
+       mi_create_varobj_checked pvla2_not_associated pvla2 "$real \\(:,:\\)" \
            "create local variable pvla2_not_associated"
        mi_gdb_test "581-var-info-type pvla2_not_associated" \
-           "581\\^done,type=\"<not associated>\"" \
+           "581\\^done,type=\"$real \\(:,:\\)\"" \
            "info type variable pvla2_not_associated"
        mi_gdb_test "582-var-show-format pvla2_not_associated" \
            "582\\^done,format=\"natural\"" \