Skip to content

Commit 9619bf4

Browse files
committed
Fix compilation error of test w/ GCC-9
- GFortran 9.1 complains about initializing a precedure pointer to an internal procedure - ¯\_(ツ)_/¯
1 parent a018b9c commit 9619bf4

File tree

1 file changed

+3
-1
lines changed
  • src/tests/integration/pde_solvers/coarrayBurgers

1 file changed

+3
-1
lines changed

src/tests/integration/pde_solvers/coarrayBurgers/main.F90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,9 @@ program main
88
real(real64), parameter :: nu=1.,final_time=0.6_real64,tolerance=1.E-3_real64,safety_factor=0.1_real64
99
real(real64) :: time=0.,dt,dx
1010
integer, parameter :: nodes=16
11-
procedure(initial_condition), pointer :: initial_u=>ten_sin
11+
procedure(initial_condition), pointer :: initial_u=>null()
12+
13+
initial_u => ten_sin
1214

1315
#ifdef TAU
1416
call TAU_PROFILE_SET_NODE(this_image()-1) ! Start TAU (Cray or GNU compiler)

0 commit comments

Comments
 (0)