3 ! PR 42048: [F03] Erroneous syntax error message on TBP call
5 ! Contributed by Damian Rouson <rouson@sandia.gov>
14 subroutine new_grid(this)
29 type(field) function new_field()
30 call new_field%mesh%new_grid()
33 function new_field2() result(new)
35 call new%mesh%new_grid()
38 type(field) function new_field3()
42 call new_field3%mesh%new_grid()
44 end function new_field3
48 ! { dg-final { cleanup-modules "grid_module field_module" } }