| ! { dg-do compile } |
| ! { dg-options "-O2 -ftree-tail-merge -fno-delete-null-pointer-checks -fno-guess-branch-probability" } |
| ! |
| ! based on testsuite/gfortran.dg/alloc_comp_optional_1.f90, |
| ! which was contributed by David Kinniburgh <davidkinniburgh@yahoo.co.uk> |
| ! |
| program test_iso |
| type ivs |
| character(LEN=1), dimension(:), allocatable :: chars |
| end type ivs |
| type(ivs) :: v_str |
| integer :: i |
| call foo(v_str, i) |
| if (v_str%chars(1) .ne. "a") STOP 1 |
| if (i .ne. 0) STOP 2 |
| call foo(flag = i) |
| if (i .ne. 1) STOP 3 |
| contains |
| subroutine foo (arg, flag) |
| type(ivs), optional, intent(out) :: arg |
| integer :: flag |
| if (present(arg)) then |
| arg = ivs([(char(i+96), i = 1,10)]) |
| flag = 0 |
| else |
| flag = 1 |
| end if |
| end subroutine |
| end |
| |