| ! { dg-do run } | |
| ! { dg-options "-ffrontend-optimize -fdump-tree-original" } | |
| ! PR 78021 - calls to mylen were folded after shortening the | |
| ! argument list. | |
| PROGRAM test_o_char | |
| implicit none | |
| integer :: n | |
| n = mylen('c') + mylen('c ') | |
| if (n /= 5) STOP 1 | |
| CONTAINS | |
| FUNCTION mylen(c) | |
| CHARACTER(len=*),INTENT(in) :: c | |
| INTEGER :: mylen | |
| mylen=LEN(c) | |
| END FUNCTION mylen | |
| END PROGRAM test_o_char | |
| ! { dg-final { scan-tree-dump-times "__var" 0 "original" } } |