diff options
| author | Cary Coutant <ccoutant@google.com> | 2012-03-09 11:50:43 -0800 |
|---|---|---|
| committer | Cary Coutant <ccoutant@google.com> | 2012-03-09 11:50:43 -0800 |
| commit | 4ed2fc3a6bbaaf1f2ea4d1c077dc7fa0867cd005 (patch) | |
| tree | 7774dcb772ccc005c2fd8f8831dc45b90a8f6060 /gcc/testsuite/gfortran.dg/class_51.f90 | |
| parent | 2400d467a903f32c96df9f9fcb0de7be8a655afa (diff) | |
| parent | f9c681635d1850543f547fdbb6efd5a010aca015 (diff) | |
| download | gcc-4ed2fc3a6bbaaf1f2ea4d1c077dc7fa0867cd005.tar.gz | |
Merge branch 'master' into google-debugfission
Diffstat (limited to 'gcc/testsuite/gfortran.dg/class_51.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/class_51.f90 | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_51.f90 b/gcc/testsuite/gfortran.dg/class_51.f90 new file mode 100644 index 00000000000..1fdad92dd04 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/class_51.f90 @@ -0,0 +1,25 @@ +! { dg-do compile } +! { dg-options "-fdump-tree-original" } +! +! PR fortran/52270 +! +! From IR F08/0073 by Malcolm Cohen +! + + Program m013 + Type t + Real c + End Type + Type(t),Target :: x + Call sub(x) + Print *,x%c + if (x%c /= 3) call abort () + Contains + Subroutine sub(p) + Class(t),Pointer,Intent(In) :: p + p%c = 3 + End Subroutine + End Program + +! { dg-final { scan-tree-dump-times "sub \\(&class" 1 "original" } } +! { dg-final { cleanup-tree-dump "original" } } |