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" } }
