diff options
| -rw-r--r-- | gdb/testsuite/gdb.fortran/complex.exp | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/complex.f90 | 7 |
2 files changed, 12 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp index f4a80fb..ca41c81 100644 --- a/gdb/testsuite/gdb.fortran/complex.exp +++ b/gdb/testsuite/gdb.fortran/complex.exp @@ -41,6 +41,7 @@ gdb_test "print c8" " = \\(321,-22\\)" gdb_test "print dc" " = \\(321,-22\\)" gdb_test "print c16" " = \\(-874,19\\)" +gdb_test "print ci" " = \\(-4,12\\)" gdb_test "whatis c" "type = $complex4" gdb_test "print \$_creal (c)" " = 1000" @@ -70,3 +71,8 @@ with_test_prefix "c16" { gdb_test "whatis \$" " = real\\*16" } +gdb_test "whatis ci" "type = $complex4" +gdb_test "print \$_creal (ci)" " = -4" +with_test_prefix "ci" { + gdb_test "whatis \$" " = real\\*4" +} diff --git a/gdb/testsuite/gdb.fortran/complex.f90 b/gdb/testsuite/gdb.fortran/complex.f90 index 5c9491d..cd1acec 100644 --- a/gdb/testsuite/gdb.fortran/complex.f90 +++ b/gdb/testsuite/gdb.fortran/complex.f90 @@ -17,8 +17,9 @@ program test_complex real*4 r4a, r4b real*8 r8a, r8b real*16 r16a, r16b + integer ia, ib - complex c + complex c, ci complex(kind=4) c4 complex(kind=8) c8 double complex dc @@ -30,15 +31,19 @@ program test_complex r8b = -22 r16a = -874 r16b = 19 + ia = -4 + ib = 12 c = cmplx(r4a,r4b) c4 = cmplx(r4a,r4b) c8 = cmplx(r8a, r8b) dc = cmplx(r8a, r8b) c16 = cmplx(r16a, r16b) + ci = cmplx(ia, ib) print *, c, c4, c8, dc, c16 ! stop print *, r4a, r4b print *, r8a, r8b print *, r16a, r16b + print *, ia, ib end program test_complex |