@@ -58,18 +58,18 @@ subroutine test_should_format_log_ticks_as_powers_of_ten()
58
58
stop 1
59
59
end if
60
60
61
- if (trim (format_tick_label(ticks(1 ), ' log' )) /= ' 10^{0}' ) then
62
- print * , ' FAIL: log tick at 1 should be formatted as 10^{0}'
61
+ if (trim (format_tick_label(ticks(1 ), ' log' )) /= ' $ 10^{0}$ ' ) then
62
+ print * , ' FAIL: log tick at 1 should be formatted as $ 10^{0}$ '
63
63
stop 1
64
64
end if
65
65
66
- if (trim (format_tick_label(ticks(2 ), ' log' )) /= ' 10^{1}' ) then
67
- print * , ' FAIL: log tick at 10 should be formatted as 10^{1}'
66
+ if (trim (format_tick_label(ticks(2 ), ' log' )) /= ' $ 10^{1}$ ' ) then
67
+ print * , ' FAIL: log tick at 10 should be formatted as $ 10^{1}$ '
68
68
stop 1
69
69
end if
70
70
71
- if (trim (format_tick_label(ticks(3 ), ' log' )) /= ' 10^{2}' ) then
72
- print * , ' FAIL: log tick at 100 should be formatted as 10^{2}'
71
+ if (trim (format_tick_label(ticks(3 ), ' log' )) /= ' $ 10^{2}$ ' ) then
72
+ print * , ' FAIL: log tick at 100 should be formatted as $ 10^{2}$ '
73
73
stop 1
74
74
end if
75
75
end subroutine test_should_format_log_ticks_as_powers_of_ten
@@ -114,8 +114,8 @@ subroutine test_should_include_symlog_threshold_ticks()
114
114
do i = 1 , num_ticks
115
115
if (abs (ticks(i) + 10.0_wp ) <= 1.0e-9_wp ) then
116
116
label = trim (format_tick_label(ticks(i), ' symlog' ))
117
- if (label /= ' -10^{1}' ) then
118
- print * , ' FAIL: symlog negative threshold should be -10^{1}, got' , label
117
+ if (label /= ' $ -10^{1}$ ' ) then
118
+ print * , ' FAIL: symlog negative threshold should be $ -10^{1}$ , got' , label
119
119
stop 1
120
120
end if
121
121
if (found_negative_threshold) then
@@ -125,8 +125,8 @@ subroutine test_should_include_symlog_threshold_ticks()
125
125
found_negative_threshold = .true.
126
126
else if (abs (ticks(i) - 10.0_wp ) <= 1.0e-9_wp ) then
127
127
label = trim (format_tick_label(ticks(i), ' symlog' ))
128
- if (label /= ' 10^{1}' ) then
129
- print * , ' FAIL: symlog positive threshold should be 10^{1}, got' , label
128
+ if (label /= ' $ 10^{1}$ ' ) then
129
+ print * , ' FAIL: symlog positive threshold should be $ 10^{1}$ , got' , label
130
130
stop 1
131
131
end if
132
132
if (found_positive_threshold) then
0 commit comments