@@ -72,7 +72,7 @@ contains
72
72
if (allocated(error)) return
73
73
74
74
#:else
75
- call skip_test(error, "Rank 7 is not supported")
75
+ call skip_test(error, "Rank > 7 is not supported")
76
76
#:endif
77
77
end subroutine
78
78
@@ -86,7 +86,7 @@ contains
86
86
if (allocated(error)) return
87
87
88
88
#:else
89
- call skip_test(error, "Rank 7 is not supported")
89
+ call skip_test(error, "Rank > 7 is not supported")
90
90
#:endif
91
91
end subroutine
92
92
@@ -105,7 +105,7 @@ contains
105
105
#:endfor
106
106
107
107
#:else
108
- call skip_test(error, "Rank 7 is not supported")
108
+ call skip_test(error, "Rank > 7 is not supported")
109
109
#:endif
110
110
end subroutine
111
111
@@ -126,7 +126,7 @@ contains
126
126
#:endfor
127
127
128
128
#:else
129
- call skip_test(error, "Rank 7 is not supported")
129
+ call skip_test(error, "Rank > 7 is not supported")
130
130
#:endif
131
131
end subroutine
132
132
@@ -142,7 +142,7 @@ contains
142
142
if (allocated(error)) return
143
143
144
144
#:else
145
- call skip_test(error, "Rank 7 is not supported")
145
+ call skip_test(error, "Rank > 7 is not supported")
146
146
#:endif
147
147
end subroutine
148
148
@@ -161,7 +161,7 @@ contains
161
161
#:endfor
162
162
163
163
#:else
164
- call skip_test(error, "Rank 7 is not supported")
164
+ call skip_test(error, "Rank > 7 is not supported")
165
165
#:endif
166
166
end subroutine
167
167
#:endfor
@@ -178,7 +178,7 @@ contains
178
178
if (allocated(error)) return
179
179
180
180
#:else
181
- call skip_test(error, "Rank 7 is not supported")
181
+ call skip_test(error, "Rank > 7 is not supported")
182
182
#:endif
183
183
end subroutine
184
184
@@ -192,7 +192,7 @@ contains
192
192
if (allocated(error)) return
193
193
194
194
#:else
195
- call skip_test(error, "Rank 7 is not supported")
195
+ call skip_test(error, "Rank > 7 is not supported")
196
196
#:endif
197
197
end subroutine
198
198
@@ -211,7 +211,7 @@ contains
211
211
#:endfor
212
212
213
213
#:else
214
- call skip_test(error, "Rank 7 is not supported")
214
+ call skip_test(error, "Rank > 7 is not supported")
215
215
#:endif
216
216
end subroutine
217
217
@@ -227,7 +227,7 @@ contains
227
227
#:endfor
228
228
229
229
#:else
230
- call skip_test(error, "Rank 7 is not supported")
230
+ call skip_test(error, "Rank > 7 is not supported")
231
231
#:endif
232
232
end subroutine
233
233
@@ -243,7 +243,7 @@ contains
243
243
if (allocated(error)) return
244
244
245
245
#:else
246
- call skip_test(error, "Rank 7 is not supported")
246
+ call skip_test(error, "Rank > 7 is not supported")
247
247
#:endif
248
248
end subroutine
249
249
@@ -262,7 +262,7 @@ contains
262
262
#:endfor
263
263
264
264
#:else
265
- call skip_test(error, "Rank 7 is not supported")
265
+ call skip_test(error, "Rank > 7 is not supported")
266
266
#:endif
267
267
end subroutine
268
268
#:endfor
@@ -279,7 +279,7 @@ contains
279
279
if (allocated(error)) return
280
280
281
281
#:else
282
- call skip_test(error, "Rank 7 is not supported")
282
+ call skip_test(error, "Rank > 7 is not supported")
283
283
#:endif
284
284
end subroutine
285
285
@@ -293,7 +293,7 @@ contains
293
293
if (allocated(error)) return
294
294
295
295
#:else
296
- call skip_test(error, "Rank 7 is not supported")
296
+ call skip_test(error, "Rank > 7 is not supported")
297
297
#:endif
298
298
end subroutine
299
299
@@ -312,7 +312,7 @@ contains
312
312
#:endfor
313
313
314
314
#:else
315
- call skip_test(error, "Rank 7 is not supported")
315
+ call skip_test(error, "Rank > 7 is not supported")
316
316
#:endif
317
317
end subroutine
318
318
@@ -328,7 +328,7 @@ contains
328
328
#:endfor
329
329
330
330
#:else
331
- call skip_test(error, "Rank 7 is not supported")
331
+ call skip_test(error, "Rank > 7 is not supported")
332
332
#:endif
333
333
end subroutine
334
334
@@ -344,7 +344,7 @@ contains
344
344
if (allocated(error)) return
345
345
346
346
#:else
347
- call skip_test(error, "Rank 7 is not supported")
347
+ call skip_test(error, "Rank > 7 is not supported")
348
348
#:endif
349
349
end subroutine
350
350
@@ -363,7 +363,7 @@ contains
363
363
#:endfor
364
364
365
365
#:else
366
- call skip_test(error, "Rank 7 is not supported")
366
+ call skip_test(error, "Rank > 7 is not supported")
367
367
#:endif
368
368
end subroutine
369
369
#:endfor
0 commit comments