| ! { dg-do run } | |
| character(len=1) :: s | |
| character(len=0) :: s0 | |
| s = " " | |
| s0 = "" | |
| call bar ("") | |
| call bar (s) | |
| call bar (s0) | |
| call bar (trim(s)) | |
| call bar (min(s0,s0)) | |
| contains | |
| subroutine bar (s) | |
| character(len=*), optional :: s | |
| if (.not. present (S)) STOP 1 | |
| end subroutine bar | |
| end |