{"action":"opened","issue":{"url":"https://api.github.com/repos/flang-compiler/flang/issues/306","repository_url":"https://api.github.com/repos/flang-compiler/flang","labels_url":"https://api.github.com/repos/flang-compiler/flang/issues/306/labels{/name}","comments_url":"https://api.github.com/repos/flang-compiler/flang/issues/306/comments","events_url":"https://api.github.com/repos/flang-compiler/flang/issues/306/events","html_url":"https://github.com/flang-compiler/flang/issues/306","id":276098568,"number":306,"title":"Nwchem: OpenMP COPYPRIVATE issue","user":{"login":"pawosm-arm","id":20681839,"avatar_url":"https://avatars2.githubusercontent.com/u/20681839?v=4","gravatar_id":"","url":"https://api.github.com/users/pawosm-arm","html_url":"https://github.com/pawosm-arm","followers_url":"https://api.github.com/users/pawosm-arm/followers","following_url":"https://api.github.com/users/pawosm-arm/following{/other_user}","gists_url":"https://api.github.com/users/pawosm-arm/gists{/gist_id}","starred_url":"https://api.github.com/users/pawosm-arm/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/pawosm-arm/subscriptions","organizations_url":"https://api.github.com/users/pawosm-arm/orgs","repos_url":"https://api.github.com/users/pawosm-arm/repos","events_url":"https://api.github.com/users/pawosm-arm/events{/privacy}","received_events_url":"https://api.github.com/users/pawosm-arm/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":0,"created_at":"2017-11-22T15:01:01Z","updated_at":"2017-11-22T15:01:01Z","closed_at":null,"author_association":"NONE","body":"While compiling Nwchem-6.6 I'm seeing following error:\r\n\r\n`F90-S-0000-Internal compiler error. size_of: attempt to size assumed size character 0 (beom.F: 240)`\r\n\r\nIt is caused by following code:\r\n\r\n```\r\n      logical function beom_tag_to_element(t,symbol,element,atn)\r\n      implicit none\r\n      character*16 t\r\n      character*(*) symbol\r\n      character*(*) element\r\n      integer atn\r\n\r\n#include \"geom.fh\"\r\n\r\n      logical ok\r\n\r\n!$OMP SINGLE\r\n      ok = geom_tag_to_element(t,symbol,element,atn)\r\n!$OMP END SINGLE copyprivate(symbol,element,atn,ok)\r\n      beom_tag_to_element = ok\r\n      return\r\n      end\r\n```\r\n\r\nWith `symbol` and `element` removed from the COPYPRIVATE list, this code compiles (assuming -fopenmp compilation flag).\r\n"}}
{"actor":{"display_login":"pawosm-arm"}}