From 7e7856cf9ec88ab7fb48e7c73f9cc6495a4a9c22 Mon Sep 17 00:00:00 2001 From: Bernhard Reutner-Fischer Date: Sat, 30 Oct 2021 23:43:12 +0200 Subject: [PATCH] Fortran: add testcase gcc/testsuite/ChangeLog: 2021-10-30 Bernhard Reutner-Fischer * gfortran.dg/dump-fortran-global-1.f90: New test. --- .../gfortran.dg/dump-fortran-global-1.f90 | 25 +++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/dump-fortran-global-1.f90 diff --git a/gcc/testsuite/gfortran.dg/dump-fortran-global-1.f90 b/gcc/testsuite/gfortran.dg/dump-fortran-global-1.f90 new file mode 100644 index 00000000000..a8a1b15cce3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/dump-fortran-global-1.f90 @@ -0,0 +1,25 @@ +! { dg-do compile } +! { dg-options "-fdump-fortran-global" } +! +! Test that -fdump-fortran-global works + +integer function myifun () + myifun = 42 +end function myifun + +program testprogram + implicit none + interface + subroutine sub1() + end subroutine sub1 + end interface + integer :: myifun + integer :: myint1 = 42 + real :: myreal1 = .0815 + if (myreal1 > 1.0) stop 1 + if (myint1 < 1) stop 2 + if (myint1 /= myifun()) stop 3 +end program testprogram +! { dg-output "\[\n\r]*name=myifun, sym_name=myifun\[\n\r]" } +! { dg-output "\[\n\r]*name=testprogram\[\n\r]" } +! { dg-prune-output "\[\n\r]*" } -- 2.33.0