| ! { dg-do compile } |
| ! PR fortran/115039 |
| ! |
| ! Check that inquiry refs work with statement functions |
| ! |
| ! { dg-additional-options "-std=legacy -fdump-tree-optimized" } |
| ! { dg-prune-output " Obsolescent feature" } |
| ! { dg-final { scan-tree-dump-not "_gfortran_stop_numeric" "optimized" } } |
| |
| program testit |
| implicit none |
| complex :: x |
| real :: im |
| integer :: slen |
| character(5) :: s |
| im(x) = x%im + x%re + x%kind |
| slen(s) = s%len |
| if (im((1.0,3.0) + (2.0,4.0)) /= 14.) stop 1 |
| if (slen('abcdef') /= 5) stop 2 |
| end program testit |
