summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorEike Ziller <eike.ziller@qt.io>2019-09-23 12:31:58 +0200
committerEike Ziller <eike.ziller@qt.io>2019-09-23 12:31:58 +0200
commit0491c1c06caaa20f40b7fd35b1f219b181e776d3 (patch)
tree0b10ac374bf8bdcc0736e6c06dc5c0b4e6cf4305 /tests
parent57749e91e8e36bc6fd9fe8e472910c3619da42c1 (diff)
parentd8c78538a6af184d7ee672173d0a1b285dad4b89 (diff)
downloadqt-creator-0491c1c06caaa20f40b7fd35b1f219b181e776d3.tar.gz
Merge remote-tracking branch 'origin/4.10'
Change-Id: I4a22cdf4d7d5aab2083d5f9f7baaa38e510f83fd
Diffstat (limited to 'tests')
-rw-r--r--tests/auto/debugger/tst_dumpers.cpp35
1 files changed, 35 insertions, 0 deletions
diff --git a/tests/auto/debugger/tst_dumpers.cpp b/tests/auto/debugger/tst_dumpers.cpp
index 3faa87b1d2..bbee83bc47 100644
--- a/tests/auto/debugger/tst_dumpers.cpp
+++ b/tests/auto/debugger/tst_dumpers.cpp
@@ -7267,6 +7267,41 @@ void tst_Dumpers::dumper_data()
+ Check("f1", "1", "@QSqlField (qlonglong)")
+ Check("f2", "\"qt-logo.png\"", "@QSqlField (QString)")
+ Check("f3", "(invalid)", "@QSqlField (invalid)");
+
+
+ Data f90data;
+ f90data.configTest = "which f95";
+ f90data.allProfile =
+ "CONFIG -= qt\n"
+ "SOURCES += main.f90\n"
+ "# Prevents linking\n"
+ "TARGET=\n"
+ "# Overwrites qmake-generated 'all' target.\n"
+ "all.commands = f95 -g -o doit main.f90\n"
+ "all.depends = main.f90\n"
+ "all.CONFIG = phony\n\n"
+ "QMAKE_EXTRA_TARGETS += all\n";
+
+ f90data.allCode =
+ "program test_fortran\n\n"
+ " implicit none\n\n"
+ " character(8) :: c8\n"
+ " integer(8) :: i8\n\n"
+ " i8 = 1337\n"
+ " c8 = 'c_____a_'\n"
+ " ! write (*,*) c8\n"
+ " i8 = i8 / 0\n"
+ "end program\n";
+
+ f90data.mainFile = "main.f90";
+
+ QTest::newRow("F90")
+ << f90data
+ + GdbEngine
+ + Check("c8", "\"c_____a_\"", "character *8")
+ + Check("i8", "1337", "integer(kind=8)");
+
+
#if 0
#ifdef Q_OS_LINUX
// Hint: To open a failing test in Creator, do: