Commit a4eb3f95 authored by Pavel Kus's avatar Pavel Kus
Browse files

__FILE__ uses filename with path, which can be too long

Unfortunately C macros can have only 1 line and length of line is
limited ---> workaround to be able to compile
parent eda9513f
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_complex_1stage.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_complex_1stage_gpu.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_complex_2stage.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_complex_2stage_gpu.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_complex_single_1stage.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_complex_single_1stage_gpu.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_complex_single_2stage.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_complex_single_2stage_gpu.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_real_1stage.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_real_1stage_gpu.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_real_2stage.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_real_2stage_gpu.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_real_single_1stage.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_real_single_1stage_gpu.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_real_single_2stage.F90", __LINE__)
program test_interface
use precision
......
......@@ -44,7 +44,7 @@
#define stringify_(x) "x"
#define stringify(x) stringify_(x)
#define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
#define assert(x) call x_assert(x, stringify(x), "test_new_interface_real_single_2stage_gpu.F90", __LINE__)
program test_interface
use precision
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment