| ! { dg-do compile } | |
| ! PR fortran/100273 - ICE in gfc_create_module_variable | |
| ! | |
| ! Contributed by G.Steinmetz | |
| module m | |
| implicit none | |
| contains | |
| character(4) function g(k) | |
| integer :: k | |
| g = f(k) | |
| contains | |
| function f(n) | |
| character(3), parameter :: a(2) = ['1 ', '123'] | |
| integer :: n | |
| character(len_trim(a(n))) :: f | |
| f = 'abc' | |
| end | |
| end | |
| end | |
| program p | |
| use m | |
| implicit none | |
| print *, '>>' // g(1) // '<<' | |
| print *, '>>' // g(2) // '<<' | |
| end |