[Patch, Fortran, committed] Re: testsuite: defined_assignment_7.f90 and finalize_10.f90

[Tobias Burnus <burnus at net-b dot de>]

Manfred Schwarb wrote:
> dg-compile, dg!final and missing parens protection.

Thanks for the patch! I committed it as Rev. 200784. (The dg!final was a 
left-over from some testing; I should switch to something more visible 
for commenting out those.)

Tobias

> Index: defined_assignment_7.f90
> ===================================================================
> --- defined_assignment_7.f90    (revision 200697)
> +++ defined_assignment_7.f90    (working copy)
> @@ -1,4 +1,4 @@
> -! { dg-compile }
> +! { dg-do compile }
>  !
>  ! PR fortran/57508
>  !
> Index: finalize_10.f90
> ===================================================================
> --- finalize_10.f90     (revision 200697)
> +++ finalize_10.f90     (working copy)
> @@ -32,8 +32,8 @@
>
>  ! FINALIZE TYPE:
>  ! { dg-final { scan-tree-dump-times "parm.\[0-9\]+.data = \\(void 
> \\*\\) &\\(\\*aa.\[0-9\]+\\)\\\[0\\\];" 1 "original" } }
> -! { dg!final { scan-tree-dump-times "__final_m_T2 (&parm.\[0-9\]+, 0, 
> 0);" 1 "original" } }
> -! { dg!final { scan-tree-dump-times "desc.\[0-9\]+.data = \\(void \\* 
> restrict\\) bb;" 1 "original" } }
> -! { dg!final { scan-tree-dump-times "__final_m_T2 (&desc.\[0-9\]+, 0, 
> 0);" 1 "original" } }
> +! { dg-final { scan-tree-dump-times "__final_m_T2 \\(&parm.\[0-9\]+, 
> 0, 0\\);" 1 "original" } }
> +! { dg-final { scan-tree-dump-times "desc.\[0-9\]+.data = \\(void \\* 
> restrict\\) bb;" 1 "original" } }
> +! { dg-final { scan-tree-dump-times "__final_m_T2 \\(&desc.\[0-9\]+, 
> 0, 0\\);" 1 "original" } }
>
>  ! { dg-final { cleanup-tree-dump "original" } }