Debug checks output unreadable writes

[gold2718]

Description

In the following code snipped (from the ccpp_temp_suite_cap.F90 generated from the capgen test). There are multiple writes to errmsg but only the last one has an effect.

Steps to Reproduce

Provide the tag or hash of the CCPP Framework used to reproduce the bug
Have you make any modifications to the CCPP Framework code?

Please provide detailed steps for reproducing the issue.

1. Check out the develop branch (I used af90b94)
2. From the ccpp root, run ./test/capgen_test/run_test --cleanup NEVER
3. Look at ct_build/ccpp/ccpp_temp_suite_cap.F90

Output

         ! ##################################################################
         ! Begin debug tests
         ! ##################################################################

         ! Check size of array coeffs
         if (size(coeffs(:)) /= 1*(ncols-1+1)) then
            write(errmsg, '(a)')                                                                  &
                 'In group temp_suite_timestep_initial before setup_coeffs_timestep_init:'
            write(errmsg, '(2(a,i8))') 'for array coeffs, expected size ', 1*(ncols-1+1),         &
                 ' but got ', size(coeffs)
            errflg = 1
            return
         end if